Find的问题！

Question

请用rst.filter="学号=" & Val(Text1.Text) And "选课号=" & Val(Text2.Text)

Answer 1

rst.find "学号=" & Val(Text1.Text) & " And 选课号=" & Val(Text2.Text)

Answer 2

你也许在程序中要多次进行数据连接 像这样做挺方便的Public DataSource1 As ADODB.Recordset
Public DataSource2 As ADODB.Recordset
Public DataSource3 As ADODB.Recordset
Public DataSource4 As ADODB.Recordset
Public DataSource5 As ADODB.Recordset
Public DataSource6 As ADODB.Recordset
Public Function DataSource(ByVal Connectionstring As String, ByVal SQL As String, ByVal Index As Integer)
'        On Error GoTo ERR
        Dim conn As ADODB.Connection
        Dim cmd As ADODB.Command
        Dim rst As ADODB.Recordset
        Set conn = New ADODB.Connection
        conn.Connectionstring = Connectionstring
        conn.Open
        Set cmd = New ADODB.Command
        Set cmd.ActiveConnection = conn
        cmd.CommandType = adCmdText
        cmd.CommandText = SQL
        Set rst = New ADODB.Recordset
        rst.CursorLocation = adUseClient
        rst.CursorType = adOpenDynamic
        rst.LockType = adLockOptimistic
        rst.Open cmd
        Select Case Index
            Case 1
                Set DataSource1 = rst
                DataSource1.Requery
            Case 2
                Set DataSource2 = rst
                DataSource2.Requery
            Case 3
                Set DataSource3 = rst
                DataSource3.Requery
            Case 4
                Set DataSource4 = rst
                DataSource4.Requery
            Case 5
                Set DataSource5 = rst
                DataSource5.Requery
            Case 6
                Set DataSource6 = rst
                DataSource6.Requery
        End Select
        Exit Function
ERR:
        msgInfo = MsgBox("数据源接连失败", 64)
End Function
DataSource6.Find ("学号="  & "'" & Val(Text1.Text) & " And 选课号=" & Val(Text2.Text) & "'")

Answer 3

对了，在 Find 句子中，对应于字段的那个变量的类型要与字段相同，并且类型不同引号也有所不同