Bueno eso fue lo que hice
[shadow=red,left]
If oUsuarioBL.IniciarSession(oUsuarioBE) = True Then
If StrComp(oUsuarioBE.Contraseña, Txt_Contraseña.Text, vbBinaryCompare) = 0 Then
Set oUsuarioBL = Nothing
Call Unload(Me)
MDI_Principal.Show
Else
MsgBox "Contraseña Incorrecta", vbExclamation, "Validacion de Usuario"
End If
Else
MsgBox "Usuario no Encontrado", vbExclamation, ""
End If
[/shadow]