Visual Basic - Validar txt usuario

Hola amigos:

Estoy muy complicada, necesito resolver este código

tengo una caja de texto usuario que me busca en el campo login de la bd, si esta correcta pongo contraseña, pero cuando esta incorrecta o en blanco se me cae al presionar el boton aceptar.


Código

Private Sub Command1_Click()

On Error Resume Next

With rec
If TxtContraseña.Text = !Contraseña Then
ProgressBar1.Visible = True
Label3.Caption = "Cargando configuracion de usuario..."
ProgressBar1.Max = 100
ProgressBar1.Value = 0
P = 0
Do While P < 100
P = P + 1
ProgressBar1.Value = P
X = 0
Do While X < 100000
X = X + 1
Loop
Loop
ProgressBar1.Visible = False
Usuario = !Login

Form3.Hide
Form4.Show 1
Exit Sub
Else
Nc = MsgBox("Contraseña incorrecta!", vbExclamation, "Inicio de sesion.")
datalist1.SetFocus
TxtContraseña.Text = ""

Exit Sub
End If
End With
rec.Close
End Sub


Desde antemano muchas gracias, si gustan pueden contactarme al msn
[email protected]

Intentale asi Claudia:

Private Sub Command1_Click()
On Error goto fin

With rec
If TxtContraseña.Text = !Contraseña Then
ProgressBar1.Visible = True
Label3.Caption = "Cargando configuracion de usuario..."
ProgressBar1.Max = 100
ProgressBar1.Value = 0
P = 0
Do While P < 100
P = P + 1
ProgressBar1.Value = P
X = 0
Do While X < 100000
X = X + 1
Loop
Loop
ProgressBar1.Visible = False
Usuario = !Login

Form3.Hide
Form4.Show 1
Exit Sub

Rem si se teclea un pass incorrecto se da el mensaje
Elseif (TxtContraseña.Text <> !Contraseña) Then
MsgBox("Contraseña incorrecta!", vbExclamation, "Inicio de sesion.")
datalist1.SetFocus
TxtContraseña.Text = ""
Exit Sub

Rem si no se pone contraseña dar mensaje
Elseif (TxtContraseña.Text = "") Then
MsgBox("Teclee la contraseña por favor!", vbExclamation, "Inicio de sesion.")
datalist1.SetFocus
exit sub
End If
End With
rec.Close
exit sub
fin:
msgbox "Error del programa",32,"mensaje"
End Sub