查询问题??

Private Sub XPBtnSearch_Click()
Dim strSql As String
Dim strSearch As String
On Error Resume Next
    strSearch = Trim(txtSearch.Text)
    If strSearch <> "" Then
        Select Case cboSearch.ListIndex
        Case 0
            strSql = "AcceptCode like '%" & strSearch & "%'"
        Case 1
            strSql = "Expr1 like '%" & strSearch & "%'"
        Case 2
            strSql = "AcceptDate='" & strSearch & "'"
        End Select
        rstMadeIf.Filter = strSql
     
   ........................... Else
        MsgBox "请输入要查询的值", vbCritical, "系统提示"
    End If
End Sub省略号那里需要什么吗???????,,怎么样把过虑后的数据加载到datagrid控件中的???