vb调用access查询的问题

Question

if trim(text1.text)="" then
    sqlstr = "Select * From 表1"
else
    sqlstr = "Select * From 表1 where 姓名='"& trim(text1.text) &"'"
end if

Answer 1

不明白楼主的意图。Select * From 表1 就是所谓查询。首先，将下列变量声明移到通用段：
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
是想实现记录筛选？Private Sub Command1_Click()
    rst.Filter = ""
    rst.Filter = "姓名='" & Trim(Text1.Text) & "'"
    DataGrid1.Refresh
End Sub
还是条件查询？
Private Sub Command1_Click()
    Text1 = Trim(Text1) 
    If Text1 > "" Then
        rst.Close
        rst.Open  "Select * From 表1 Where 姓名='" & Text1 & "'", cn
        DataGrid1.Refresh
    End If
End Sub

Answer 2

sqlstr = "Select * From 表1"
这句是为了显示表中的所有内容，
但是不会实现查询，我想加一个命令按钮，和一个text1框。功能是在text1中输入内容可以实现查询，并将查询内容显示在该datagrid1中。
 Private Sub
 Command1_Click()
sqlstr = "Select *rst.Open sqlstr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst From 表1 where 姓名='" & Text1.Text & "'"
用以上代码实现不了查询，难道每次都要把上面的load的内容复制一遍么？请高手指点一二谢谢！