怎么总是出现“对象变量或with块变量未设置”的错误呢，

Private Sub CmdLogin_Click()
'On Error Resume Next
'Dim myobject As Object
'Set myobject = Adodc1

If Adodc1.Recordset.RecordCount <> 0 Then
  Adodc1.Recordset.MoveFirst
  While Adodc1.Recordset.EOF = False
        If Adodc1.Recordset.Fields("姓名") = txtusername.Text Then
            If Adodc1.Recordset.Fields("密码") = txtuserpassword.Text Then
              Unload Me
              Exit Sub
              MsgBox "登录成功"
            Else
              MsgBox "你输入的口令不正确，请重新输入"
            End If
        Else
            Adodc1.Recordset.MoveNext

        End If
    Wend
    If Adodc1.Recordset.EOF = True Then
      MsgBox "请输入正确的用户名和口令"
    End If
Else
    MsgBox "没有任何用户可以登录"
End If

End Sub

Private Sub CmdQuit_Click()
Dim i As Byte
i = MsgBox("你确定要退出登录？", vbYesNo, "退出")
If i = vbYes Then
  Unload Me
End If

End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\侯立丹文件" & _
"\access\实验室管理程序\实验室人员信息.mdb;Persist Security Info=False"

End Sub
我几经建立了access数据库，也设置好了adodc1.connectionstring,和recordsource属性，怎么总是出现“对象变量或with块变量未设置”的错误呢，在If Adodc1.Recordset.RecordCount <> 0 Then
行出现断点了就，请教各位帮帮忙，分析一下究竟是怎么回事。非常感谢 --------------------编程问答-------------------- 对象还没有初始化.. --------------------编程问答-------------------- Adodc1只要连接就可以吗不要什么查询一下之类吗,应该是你Adodc1里没有记录造成的
Adodc1到是很久没有用过了,具体方法不是很清楚了,网上搜下吧应该很多代码的 --------------------编程问答-------------------- 怎么初始化呢，请教 --------------------编程问答-------------------- Adodc1.Recordset.Open ....

如果成功，再调用Adodc1.Recordset.RecordCount --------------------编程问答-------------------- 加一句
Adodc1.RecordSource ="select * from 表名" --------------------编程问答-------------------- http://blog.csdn.net/chinaboyzyq/archive/2009/07/31/4395997.aspx --------------------编程问答-------------------- Adodc1.Refresh'加这句
If Adodc1.Recordset.RecordCount <> 0 Then

补充：VB ,  基础类