Login i VB

Jeg prøver at lave en lille login der skal tjekke i en database om brugeren er lagt ind, men jeg syntes ikke det går så godt
Hvad er galt

Set MyConn = CreateObject("ADODB.Connection")
MdbFilePath = "c:\Rokuda\db.mdb"
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "SELECT * FROM User"
Set RS = MyConn.Execute(SQL_query)
While Not RS.EOF
Dim login(2) As String
login(1) = RS("brugernavn")
login(2) = RS("password")
If Text1.Text = login(1) Then
If Text2.Text = login(2) Then
Main.Show
Me.Hide
Main.Caption = "Rokuda 1.0 " & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & "Du er logget ind som " & RS("Navn")
Main.Label23.Caption = RS("Status")
Main.Label27.Caption = RS("Id")
Else
MsgBox "Kan ikke godkende dine login oplysninger", vbOKOnly, "Fejl i login"
Text1.Text = ""
Text2.Text = ""
End If
End If
RS.Movenext

Wend

Den vil gernen logge den første bruger sin som står i databasen, men bruger 2 vil den ikke, den gør intet, men hvis jeg taster noget forkert ind så melder den fint nok fejll, det er som om den kun kigger i den første record

MC