vb提问请教

Question

类型不匹配，这是为什么啊？ Dim rstexaminee As New ADODB.Recordset 
。 
。 
。 
Call Rs_get_data_string(rstexaminee, "id") Public Function Rs_get_data_string(ByVal rsCommand1 As Recordset, ByVal field1 As String) As String 。 
。 
。 
End Function

Answer 1

Option ExplicitPrivate Sub Form_Load()
    Dim rstexaminee As New ADODB.Recordset
    Call Rs_get_data_string(rstexaminee, "id")
End SubPublic Function Rs_get_data_string(ByVal rsCommand1 As Recordset, ByVal field1 As String) As String
    '
End Function没问题啊，你引用ADO了没有。

Answer 2

Public Function Rs_get_data_string(ByVal rsCommand1 As ADODB.Recordset , ByVal field1 As String) As String 。 
。 
。 
End Function
另外引用一下引用ADO