Dim strSql As String strSql = "select * from Q_发票信息 where " & [CBO_分类].Value & " Like '*" & Me.TXT_搜索 & "*'" Me!发票信息_子窗体.Form.RecordSource = strSql '显示查询结果