Here is a little routine I use all the time.
Code:
'LOGON SCRIPT
'CompareTypes
'vbTextCompare = 1 /upper and lower case are the same - Textual compare
'vbBinaryCompare = 0 or null /upper case come before lower case - Binary Compare
bolFound = False
Do While Not bolFound
If (StrComp(username1,username2,vbTextCompare)=0) AND _
(StrComp(passowrd1,Password2,vbBinaryCompare)=0) Then
bolFound = True
Else
objRS.MoveNext
End If
Loop
' No match found
If Not bolFound Then
' InvalidLogin
Else
' LoginSuccessfull
End If