主题：如何建立独立窗口进行模糊查找

 编写文本框的keydown事件

If e.KeyCode = Keys.Enter Then
    Dim filter As String = "1=2"
    For Each dc As Col In Tables("表A").Cols
        filter &= " or convert(" & dc.Name & ",'System.String') like '%" & e.Form.Controls("TextBox1").Text & "%'"
    Next
   
    Tables("表A").Filter = filter
End I