Private Sub ent_Click()                           '登入
Dim i%
i = 0
If managename.Text <> "" Then                             
    Adodc1.RecordSource = "select * from 管理员"
    Adodc1.Refresh
    Do While Adodc1.Recordset.EOF
    If Trim(managename.Text) = Trim(Adodc1.Recordset.Fields("管理员姓名")) Then
       i = 1
       If managesecret.Text = Adodc1.Recordset.Fields("密码") Then
               Load store
               store.Visible = True
               Unload manage
        Else
            MsgBox ("输入密码错误，请重新输入")
            managename.Text = ""
            managesecret.Text = ""
            managename.SetFocus
            Exit Sub
        End If
    End If
    Adodc1.Recordset.MoveNext
    Loop
Else
    MsgBox ("管理员姓名不能为空，请重新输入")
    managename.SetFocus
    Exit Sub
End If
If i = 0 Then
    MsgBox ("管理员姓名错误，请重新输入")
    managename.Text = ""
    managesecret.Text = ""
    managename.SetFocus
End If
End Sub
错误在哪里，运行怎么总是显示  管理员姓名错误       请帮我改改，谢谢了

Private Sub ent_Click()                           '登入
Dim i%
i = 0
If managename.Text <> "" Then                             
    Adodc1.RecordSource = "select * from 管理员"
    Adodc1.Refresh
    Adodc1.Recordset.MoveFirst
    Do While NOT(Adodc1.Recordset.EOF) AND NOT(Adodc1.Recordset.BOF)
    If Trim(managename.Text) = Trim(Adodc1.Recordset.Fields("管理员姓名")) Then
       i = 1
       If managesecret.Text = Adodc1.Recordset.Fields("密码") Then
               Load store
               store.Visible = True
               Unload manage
        Else
            MsgBox ("输入密码错误，请重新输入")
            managename.Text = ""
            managesecret.Text = ""
            managename.SetFocus
            Exit Sub
        End If
    End If
    Adodc1.Recordset.MoveNext
    Loop
Else
    MsgBox ("管理员姓名不能为空，请重新输入")
    managename.SetFocus
    Exit Sub
End If
If i = 0 Then
    MsgBox ("管理员姓名错误，请重新输入")
    managename.Text = ""
    managesecret.Text = ""
    managename.SetFocus
End If
End Sub

谢谢你，还是我粗心了。

但是运行的时候，数据库里就一条记录的话，显示
    Adodc1.Recordset.MoveNext
  有错误
对象变量或者with变量未设置
这是怎么回事？

找到原因了，在结束前不能unload，不然就都变成未定义啦，还是谢谢你啦。

建好一个软件，用的是SQL server2008数据库，但是打包后，在别的电脑上连接不上数据库。程序里ADODC控件需要怎么设置，在另一台电脑上又该怎么设置ODBC数据源？这个你懂么？能不能帮我解决下问题