VB小白一枚求教

Option ExplicitPrivate Sub text1_validate(cancel As Boolean)
If IsNumeric(Text1.Text) = False Then
MsgBox "请输入日期"
End If
End SubPrivate Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim cm As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim sinput As String
Dim ID As String
Dim IDNUMBER As String
Dim NAME As String
Dim SEX As String
Dim BIRTHDAY As String
Dim SZTID As String
Dim BANKID As String
Dim SBID As String
Dim NID As String
Dim SBTYPE As String
Dim PRITEDATE As String
Dim FLAGID As String
Dim MEM As String
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\LOG.mdb"
rs.ActiveConnection = cn
cn.ConnectionString = "dsn=DataCard"
sinput = Text1.Text
rs.Open "SELECT ID , IDNUMBER,NAME,SEX,BIRTHDAY,SZTID,BANKID,SBID,NID,SBTYPE,PRITEDATE,FLAGID,MEM FROM CardData  WHERE CardData.MEM = sinput", cn
cm.CommandText = "insert into CardData values('" & ID & "','" & IDNUMBER & "','" & NAME & "','" & SEX & "','" & BIRTHDAY & "','" & SZTID & "','" & BANKID & "','" & SBID & "','" & NID & "','" & SBTYPE & "','" & PRITEDATE & "','" & FLAGID & "','" & MEM & "')"
cm.Execute
End Sub
为实现access数据筛选，要求从text控件中输入筛选信息，点击按钮后筛选出数据并将其放入另一个数据库中。