ايران ويج

Private Sub Command1_Click()

Dim Response As Integer

Adodc1.Recordset.MoveFirst


While Not (Adodc1.Recordset.EOF)


If Adodc1.Recordset.Fields("UserName") = Trim(Text1.Text) Then
If Adodc1.Recordset.Fields("Password") = Val(Text2.Text) Then

Form4.Show
Else
MsgBox "ÑãÒ ÚÈæÑ ÇÔÊÈÇå ãí ÈÇÔÏ", vbCritical, "ÎØÇ"
Text2.Text = Empty
End If
Else
MsgBox "äÇã ßÇÑÈÑí ÇÔÊÈÇå ãí ÈÇÔÏ", vbCritical, "ÎØÇ"
Text1.Text = Empty
Adodc1.Recordset.RecordCount

End If

Wend
End Sub

سلام اين كل كد من هست
اگر حلقه نذارم فقط دومين ركورد را اجازه ورود ميده در صورتي كه من ميخوام به ازاي همه كاربر ها چك كنه؟چكار بايد انجام بدم