Visual Basic - validar password y boton de opcion porfa

que tal a todos
tengo este pequeño problemita
este codigo esta en una pantalla de login

lo que pasa es que si me valida los botones
si pongo el user name y password bien pero no le doy clik a ningun boton si me manda el mensaje
pero si pongo mal el pasword o el user name y doy click al boton no me manda nada
ya no hace nada ni me manda un mensaje ni nada ni tampoco avanza

Private Sub cmdOK_Click()

'este es el boton de ingresar
Adodc1.Recordset.Filter = "usuarios='" & txtUserName.Text & "'And password='" & txtPassword.Text & "'"
If Not Adodc1.Recordset.EOF Then
OK = True

If Option1.Value = False And Me.Option2.Value = False Then
msj = MsgBox("Favor de seleccionar una de las dos opciones sobre el lenguaje del programa.Gracias.", vbInformation, "Lenguaje del programa")
Else
If Option2.Value = True And Me.Option1.Value = False Then
Me.Hide
Form2.Show
Else
If Option1.Value = True And Me.Option2.Value = False Then
Me.Hide
Form13.Show
Else
MsgBox "El Usuario o Contraseña son incorrectos," & Chr(10) & "vuelva a intentarlo.", vbCritical, "Inicio de sesión"
txtUserName.SetFocus
End If
End If
End If
End If
end sub

espero q alguien me pudiera ayudar
se los agradeceria mucho
bueno gracias

Tu mensaje esta mal posicionado, deberias de ponerlo justo antes del ultimo "end if"

======================================================================
If Not Adodc1.Recordset.EOF Then
OK = True
If Option1.Value = False And Me.Option2.Value = False Then
msj = MsgBox("Favor de seleccionar una de las dos opciones sobre el lenguaje del programa.Gracias.", vbInformation, "Lenguaje del programa")
Else
If Option2.Value = True Then
Me.Hide
Form2.Show
Else
If Option1.Value = True Then
Me.Hide
Form13.Show
End If
End If
End If
Else
MsgBox "El Usuario o Contraseña son incorrectos," & Chr(10) & "vuelva a intentarlo.", vbCritical, "Inicio de sesión"
txtUserName.SetFocus
End If
=========================================================================