主题：[求助]后台数据库模糊查询

老师好！用下面的代码进行后台数据库模糊查询时，用姓名或者地址查询没问题，就是用编号时速度很慢，条形码扫入后要5秒多才能查询一例。

狐爸要我在后台针对编号做索引，不知是没做对还是怎么的，好像没用。请指教，谢谢！

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As DataTable = DataTables("登记总表")
If txt = "" Then
    tbl.LoadFilter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.LoadFilter = "序号 Like " & txt & " Or 病人姓名 Like " & txt & " Or 家庭住址_乡镇 Like " & txt
    tbl.Load()
End If
If Tables("登记总表").Current Is Nothing Then
    MessageBox.Show("您查询的对象不存在,请核对后查询!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
End If