???关于密码校验的问题，密码存在数据库中？？？

Question

我设计了一个登陆密码校验的窗体，密码存在数据库中，已是adodc连接上了但是单击登陆时，登不上去，为何？？
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
a = Adodc1.Recordset.Fields(0).Value
b = Adodc1.Recordset.Fields(1).Value
If a = Text1.Text And b = Text2.Text Then
   MDIForm1.Show
   a = 1
   Unload Me
Else
   Adodc1.Recordset.MoveNext
End If
Loop
If a <> 1 Then
 a = MsgBox("用户名或密码错误请重新输入", , "错误提示")
End If
End Sub

Answer 1

改为如下代码
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
a = Adodc1.Recordset.Fields(0).Value
b = Adodc1.Recordset.Fields(1).Value
If a = Text1.Text And b = Text2.Text Then
   MDIForm1.Show
   a = 1
   Unload Me
 End If
Adodc1.Recordset.MoveNext
Loop
If a <> 1 Then
 a = MsgBox("用户名或密码错误请重新输入", , "错误提示")
End If
End Sub

Answer 2

问题出在
Adodc1.Recordset.MoveNext
这句语句上，主要是位置关系
（文字表达能力不太好，见谅）