主题：[求助]请教怎么模糊查询后分页加载呀

Dim txt As String = e.Form.Controls("xmcxnr_mhcx").Text
If txt > "" Then
    txt = "'%" & txt & "%'"
    txt = "AAA Like " & txt & " Or BBB Like " & txt & " Or CCC Like " & txt
End If

With Tables("项目查询_项目信息").DataTable
    .loadFilter = txt
    .LoadTop =10
    .LoadPage =0
    .LoadReverse = True
    .Load()
    Forms("项目查询").Controls("共几页").Value = 1 & "/" & .TotalPages
End With