Lo que yo hago es que toda la password se convierta a mayusculas:
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
es decir lo que se ingrese se transforma a mayusculas,obviamente tambien debes colocar este codigo a la hora de guardar el password en la BD.