comparar usuario y contraseña

[juanmtrejo]

Hola a todos, alguien podria hecharme un lazo ya que he creado una aplicacion de login usando base de datos, lo que ocurre es que al ingresar el usuario y la contraseña no valida las mayusculas y minusculas ejemplo mi usuario es JMT y mi contraseña es JMT y lo ingreso ya en la aplicacion de esta manera usuario Jmt y contraseña jMt y tambien puedo ingresar de ambas maneras habra alguna manera en que se obligue a validar mayusculas y minusculas?
Agradezco mucho su valioso apoyo.

Anexo codigo:
Option Explicit
' Flag
Dim OK As Boolean

Private Sub cmdEntrar_Click()

' Cadena de conexión ( INDICAR EL PATH DE LA BASE DE DATOS )
Const C_CADENA = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "\\10.103.161.42\consulta_bines\bd1.mdb" & ";"

' Variable para el recordset
Dim Rst_Login As Recordset

' crea el recordset
Set Rst_Login = New Recordset
Dim SQL As String

' consulta SQL ( Campos: Nombre y Password) _
Textbox ( txt_Usuario y txt_Password) _
Tabla: Usuarios

SQL = "SELECT Nombre, Password " & _
"FROM Usuarios " & _
"WHERE Nombre = '" & txt_Usuario.Text & "'" _
& "AND Password = '" & txt_Password.Text & "'"
With Rst_Login
' Abre el recordset
.Open SQL, C_CADENA
' Si el recordset está vacío es por que es incorrecto
If .EOF Then
MsgBox " El usuario o Password es incorrecto ", _
vbCritical, " Login incorrecto "
txt_Password.SetFocus
SendKeys "{Home}+{End}"
' Cierra y descarga el Recordset
Rst_Login.Close
Set Rst_Login = Nothing
Exit Sub
End If
End With


' Cierra y descarga el Recordset
Rst_Login.Close
Set Rst_Login = Nothing

'Cambia el Flag para que no cierre el programa con End
OK = True

' Descarga el formulario y prosigue en el SubMain
Unload Me
End Sub
Private Sub cmdSalir_Click()
OK = False
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set frmLogin = Nothing
If OK = False Then
End
End If
End Sub

Private Sub txt_Password_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call cmdEntrar_Click
End If
End Sub
Private Sub txt_Usuario_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call cmdEntrar_Click
End If
End Sub