问题很简单，出错信息为类型不匹配，程序如下

Question

Private Sub Command1_Click()
Dim temp As String
   If Trim(Text1.Text) <> "" Then
     temp = "trim(text1.text)"
   Else
     temp = ""
   End If
   If temp <> "" Then
     temp = temp And "trim(text2.text)"
   Else
     temp = "trim(text2.text)"
   End If
   If temp <> "" Then
     temp = temp And "trim(Combobox.text)"
   Else
     temp = "trim(Combobox.text)"
   End If
   If temp <> "" Then
     temp = temp And "trim(text3.text)"
   Else
     temp = "trim(text3.text)"
   End If
   If temp = "" Then
     Sql = "select * from infor "
     AdoRs.CursorLocation = adUseClient
     AdoRs.Open Sql, StrConn1, adOpenStatic, adLockReadOnly
     Set DataGrid1.DataSource = AdoRs
     DataGrid1.ReBind
     DataGrid1.Refresh
     Frame4.Refresh
   Else
     Sql = "select * from infor where " & temp & ""
     AdoRs.CursorLocation = adUseClient
     AdoRs.Open Sql, StrConn1, adOpenStatic, adLockReadOnly
     Set DataGrid1.DataSource = AdoRs
     DataGrid1.ReBind
     DataGrid1.Refresh
   End If
end sub

Answer 1

temp = temp And "trim(text2.text)" ---> temp = temp & "trim(text2.text)"