主题：求助如何改成后台查询

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim dt As DataTable = DataTables("成交录入")
If txt > "" Then
    txt = "'%" & txt & "%'"
    txt = "合同编号 Like " & txt & " Or 客源编号 Like " & txt & " Or 房屋编号 Like " & txt & " Or 甲方姓名 Like " & txt & " Or 甲方电话 Like " & txt & " Or 甲方身份证号码 Like " & txt & " Or 乙方身份证号码 Like " & txt & " Or 乙方姓名 Like " & txt & " Or 物业地址 Like " & txt & " Or 成交门店 Like " & txt & " Or 乙方电话 Like " & txt & " Or 成交类型 Like " & txt & " Or 所属区域 Like " & txt
End If

dt.LoadFilter = txt
dt.Load