vb 实时错误91 对象变量或with块变量未设置

Private Sub Command1_Click()
Dim name As String
Dim password As String

If Option1.Value = False And Option2.Value = False Then
MsgBox "选择您的身份"
Else
'当用户为普通用户时判断其是否可以登录
If Option1.Value = True Then

Text1.Visible = True
Text2.Visible = True
Text3.Visible = False
Text4.Visible = False
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "请输入用户名和密码"
Else
name = Trim(Text1.Text)
password = Trim(Text2.Text)
With Adodc1.Recordset
.MoveFirst
Do Until .EOF()
If .Fields("姓名") = name And .Fields("密码") = password Then

Form8.Show
Form1.Hide
Exit Sub
.MoveNext
Else
.MoveN

vb 实时错误‘91’对象变量或 With 块变量没有设置 我运行VB程序时出现实时错误‘91’ 对象变量或with块变量未设置 为什么 实时错误'91': 对象变量或With块变量未设置 实时错误'91'对象变量或with块变量未设置(在线等) VB中对象变量或with块变量错误（91号错误） vb中 实时错误 对象名无效 vb 实时错误91 VB实时错误‘91’ VB 对象变量或with块变量未设置 VB实时错误'424'要求对象