关于登陆的问题，帮我看看，急

Question

Option Explicit
Dim adoPassRS As ADODB.RecordsetPrivate Sub cmdCancel_Click()
End
End SubPrivate Sub cmdOK_Click()
    Dim FindUser As String
    
    FindUser = txtUserName.Text
    Set adoPassRS = New ADODB.Recordset
    adoPassRS.Open "Select * from UserList where user = '" & FindUser & "'", DB, adOpenStatic, adLockOptimistic
    
    If Not adoPassRS.BOF Then
        adoPassRS.MoveFirst
    End If
    If adoPassRS.RecordCount <> 0 Then
        If adoPassRS("Password") = txtPassword.Text Then
            frmLogin.Hide
            frmMain.Show
        ElseIf adoPassRS("Password") <> txtPassword.Text Then
            txtPassword.Text = ""
            txtPassword.SetFocus
        End If
        
    Else
        MsgBox "User does not exits!"
        txtUserName.Text = ""
        txtUserName.SetFocus
    End If
End Sub***********************************************************
Option Explicit
Global Const DEFSOURCE = "PROVIDER=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source="
Global Const DBName = "\Contract.MDB;Jet OLEDB:Database Password=matrix-se;"Public DB As ADODB.Connection***********************************************************运行时总说adoPassRS没有定义，怎么回事啊？帮看看问题出在哪儿？谢啦

Answer 1

先引用ADO控件
Dim adoPassRS As new ADODB.Recordset

Answer 2

dim adopassrs as adodb.recordset
set adopassrs =new adodb.recordset

Answer 3

csdn介绍登录或连接数据库的很多，你搜索一下

Answer 4

不是定义，是引用，“工程”--->“引用”-->"microsoft activex data objects 2.x"

Answer 5

要引用，“工程”--->“引用”-->"microsoft activex data objects 2.0"
或者是
引用，“工程”--->“引用”-->"microsoft activex data objects 2.1"
或者是
引用，“工程”--->“引用”-->"microsoft activex data objects 2.5"
或者是
引用，“工程”--->“引用”-->"microsoft activex data objects 2.6"
或者是
引用，“工程”--->“引用”-->"microsoft activex data objects 2.7"
或者是
引用，“工程”--->“引用”-->"microsoft activex data objects 2.8"最好是:“工程”--->“引用”-->"microsoft activex data objects 2.7"

Answer 6

dim adopassrs as adodb.recordset
set adopassrs =new adodb.recordset
//
其实很简单检测你有没有定义,只要在VB里输入到AS后面时候.看看是否已经有了adodb.recordset
如果没有要引用不是定义，是引用，“工程”--->“引用”-->"microsoft activex data objects 2.x"

Answer 7

不可能呀，，只要你真正的引用了microsoft activex data objects 2.7的话，就没有问题啦，你可不要告诉我们，你不知道，什么叫“引用”

Answer 8

Public DB As ADODB.Connection
'你定义的连接对象怎么没有赋值？