为什么老是说“要求对象”？高手请进！

Question

把cnnl和rs 在模块中设为全局变量即可。

Answer 1

Dim cnn1 As ADODB.Connection
Dim rs As ADODB.RecordsetPublic Sub Command1_Click()
If rs!Username = usercontrol1.Username Then
    If rs!Password = usercontrol1.Password Then
    usercontrol1.Caption = "match"
    Exit Sub
    Else
    usercontrol1.Caption = "invalid"
    usercontrol1.Username = ""
    usercontrol1.Password = ""
    End If
End IfEnd SubPublic Sub Form_Load()
Set cnn1 = New ADODB.Connection
cnn1.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn1.Open "c:\my documents\userdata.mdb"
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cnn1
rs.Open "userpass", , , , adCmdTable
End Sub

Answer 2

你添加了对ADO的引用了吗？