求教 是哪里错了？

Question

 刚接触VB，在做这个登陆页面时  获取ID和PWD文本框的值    代码如下。怎么不正确。报错   实时错误‘91’ 对象变量或With块变量未设置
 Private Sub But_login_Click()
  If Text_Id.Text = "" Or Text_Pwd.Text = "" Then
          MsgBox "账号或密码不能为空", "提示"
       Else
            Adodc1.Recordset.Find ("AdminID='" & Trim(Text_Id.Text) & "'")
         If Adodc1.Recordset.EOF Then
            MsgBox "没有找到相关信息  请重新输入", , "提示"
        ElseIf Adodc1.Recordset.Fields("PassWord") = Trim(Text_Pwd.Text) Then
           MsgBox "欢迎使用图画书借阅系统", , "提示"
                                            
     Else
           MsgBox "密码错误，请重试", , "提示"
           Text_Pwd.Text = ""
          End If
  End If
    
End Sub

Answer 1

adodc1没有与数据库建立连接吧

Answer 2

原来的代码应该是使用设计方式设置 ADODC 的连接字符串以及 SQL 字符串的。首先，你要确认你的 Form 中有 ADODC1。1 用鼠标右击 ADODC1，选右键菜单 ADODC属性。
2 在通用页上，选“Use Connection String"（我的 VB 是英文版，你根据情况选择对应项）。
3 在提供程序页上点击 Build... 按钮，选 Microsoft Jet 4.0 OLE DB Provider。
4 点击连接页，点击...按钮，选择你的数据库文件，点确定。
5 点击 RecordSource 页，在 Command Text (SQL) 框中输入 Select * From 你的表名。按确定按钮。你这里也可以采用代码（例如在 Form_Load() 中）：
ADODC1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\yourdb.mdb;“
ADODC1.RecordSource = ”SELECT * FROM yourtable"注意：Data Source= 后的路径和数据库文件名，以及 RecordSource 中的 yourtable 都要用你的实际名称替换。