Codigo VB error loggeo

[Juny18]

Tengo el siguiente codigo de Visual Basic. Quiero hacer un logeo, pero me da error

Código:

Private Sub entrarprograma_Click()
Dim contra As String

If Nz(Me.texto_usuario, "") = "" Then
    MsgBox "Usuario vacío, introduzca uno", vbInformation, "vacio"
    Me.texto_usuario.SetFocus

ElseIf Nz(Me.texto_contraseña, "") = "" Then
        MsgBox "Contraseña vacía, introduzca una", vbInformation, "vacia"
        Me.texto_contraseña.SetFocus
        
Else

    If Nz(DLookup("Contraseña", "usuarios", "Nom_usuario=" & Me![texto_usuario]), "") <> "" Then
    contra = DLookup("Contraseña", "usuarios", "Nom_usuario= " & Me![texto_usuario])
    MsgBox "contra tiene dentro" & contra
    End If

    If contra <> Me.texto_contraseña Then
    MsgBox "Contraseña Incorrecta vuelva a intentarlo", vbCritical, "Contraseña incorrecta"
    End If

End If

End Sub

Donde señalé me da un fallo. El programa me da error en esa fila, como si tuviera algún problema a la hora de pasarle el argumento ese de la caja de texto.

El argumento que quiero pasarle es una cadena, por eso cree la variable contra.
Ya estoy desesperada, yo creo que lo hago bien, pero no atino.

Sin embargo si modifico el código y pongo la clave primaria que prácticamente es un autonúmerico si lo hace bien. pero con el texto de usuario no.