主题：查询数据比较慢怎么解决

Dim txt As String = e.Form.Controls("txtMingcheng").Text
Dim tbl As DataTable = Tables("历史记录_Table1").DataTable
If txt = "" Then
     tbl.LoadFilter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.LoadFilter = "rContent Like " & txt & " or rname like " & txt 
End If

Tables("历史记录_Table1").Filter = ""
tbl.Loadtop = 20  '假定每页1000行
tbl.Loadpage = 0 

tbl.Load()

Tables("历史记录_Table1").DataTable有93万条记录

这个方式查询比较慢，怎么解决  查询一个数据要12秒左右。

我直接在命令行里用SQL语句查询同样的关键字 where rContent like '%2131772%' or rname like '%2131772%'  则只要2秒，这个谁帮助解决一下