主题：[求助]查询加载代码优化

With DataTables("商品")
    Dim xiangz As RibbonMenu.TextBox = RibbonTabs("主信息").Groups("查询").Items("乡镇")
    Dim cunm As RibbonMenu.TextBox = RibbonTabs("主信息").Groups("查询").Items("村")
    Dim xingm As RibbonMenu.TextBox = RibbonTabs("主信息").Groups("查询").Items("姓名")
    Dim xiaob As RibbonMenu.TextBox = RibbonTabs("主信息").Groups("查询").Items("货号")
    If xiaob.text <> "" Then
        Dim cmd As New SQLCommand
        cmd.C
        cmd.CommandText ="Select Count(*) From {商品} Where [SYQQLR] Like '%" & xiangz.text & cunm.text & "%' and [DANWEI] Like '%" & xingm.text & "' and [XIAOBAN] = '" & xiaob.text & "'"
        If cmd.ExecuteScalar > 0 Then
            DataTables("商品").LoadFilter = "[SYQQLR] Like '%" & xiangz.text & cunm.text & "%' and [DANWEI] Like '%" & xingm.text & "' and [XIAOBAN] = '" & xiaob.text & "'"
            DataTables("商品").Load
        Else
            MessageBox.Show("数据不存在")
        End If
    Else
        Dim cmd As New SQLCommand
        cmd.C
        cmd.CommandText ="Select Count(*) From {商品} Where [SYQQLR] Like '%" & xiangz.text & cunm.text & "%' and [DANWEI] Like '%" & xingm.text & "'"
        If cmd.ExecuteScalar > 0 Then
            DataTables("商品").LoadFilter = "[SYQQLR] Like '%" & xiangz.text & cunm.text & "%' and [DANWEI] Like '%" & xingm.text & "'"
            DataTables("商品").Load
        Else
            MessageBox.Show("数据不存在")
        End If
       
    End If
   
End With

 

 

 

这段代码执行后经常报超时，多查几次又能查出来，但是要很长时间，求大能给我优化下

数据量超过35万条

是SQL的数据库，查找加载的数据从几条到几千不等，怎么做索引