利用adodc控件连接数据库时遇到奇怪的问题

这是我的登录界面的一段代码（运行时候出现错误“实时错误”91“  ，对象变量或with 块变量未定义）调试时出现的错误如下代码：   哪位牛哥 帮忙看看哪里错啦Private Sub Image2_Click()
Static ncum As Integer
Dim username As String
Dim password As String
Dim strsql As String
username = Trim(Text1.Text)
password = Trim(Text2.Text)If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "用户名和密码不能为空", vbCritical, "错误"
Exit Sub
End IfDim i As Integer
Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
If Adodc1.Recordset.Fields("学号") = username And Adodc1.Recordset.Fields("用户账号") = password Then
Form2.Show
Else
        Adodc1.Recordset.MoveNext
         If Adodc1.Recordset.EOF = True Then
            ncum = ncum + 1
            MsgBox "对不错无此用户名和密码，请重新输入", vbCritical, "error"
            Text2.Text = ""
            Text1.Text = ""
            Text1.SetFocus
        End If
        If ncum >= 3 Then
            MsgBox "输入的次数超过啦三次,不能再输入", vbCritical, "错误"
            End
        End If
                 
End If
NextEnd Sub