Your Mistake is that you've Send Username with Password to Check in Database,
All SQL Queries and it's Paramaeters are not Case Sensitive...
So Now I've Updated your Source Which send UserName to Database and Retrieve Password from it, After that You can compare both text using Simple IF condition...
Here's my Solution, It'll work...
Set rs = New ADODB.Recordset
Qry = "SELECT Password FROM Login WHERE UserName = '" & Text1.Text & "'"
rs.Open Qry, Con, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
If rs(0) = Text2.Text Then
MsgBox "OK"
Else
Msgbox "Invalid Username or Password", vbInformation, "Login..."
End If
Else
MsgBox "Invalid Username or Password", vbInformation, "Login..."
Text1.Text = ""
Text2.Text = ""
End If
rs.Close
Text1.SetFocus