组合框加文本框查询，在mdb中可以模糊查询，但是在ADP中无法执行。有哪位高手知道如何解决?

终于解决了。

Private Sub 查询_Click()
Dim strwhere As String
Dim a, b As String
a = Me.查询项目.Value
b = Me.查询内容.Value
Dim strsql As String
strwhere = ""
If IsNull(Me.查询项目) And IsNull(Me.查询内容) Then
     strsql = "SELECT * FROM 学员历史信息记录"
    Else
     strsql = "SELECT * FROM 学员历史信息记录 where " & a & " Like '" & b & "'"
   End If
   Debug.Print a
   Debug.Print b
   Debug.Print strsql
    Me.学员历史信息记录_子窗体.Form.RecordSource = strsql
End Sub