Hacerder a otro formulario después del password

Buenas tardes
Necesito ayuda.. Tengo dos formularios uno es el password y otro base datos, después de darle al botón de entrar, entro pero no me carga el formulario llamado "base datos" no me carga ninguno y quisiera que me calgara "base datos"
A ver si me podéis ayudar
Este esl código que esta en el botón de entrar
Gracias
Private Sub CmdAcceder_Click()
    Dim auxContraseña As String
    'Comprobamos que hay datos en las cajas de texto
    If Nz(Me.TxtUsuario.Value, "") = "" Then
        MsgBox "Seleccione un nombre de usuario de la lista para acceder", vbInformation, "ATENCION"
        Me.TxtUsuario.SetFocus
    ElseIf Nz(Me.TxtContraseña.Value, "") = "" Then
            MsgBox "Introduzca la contraseña del usuario seleccionado", vbInformation, "ATENCION"
            Me.TxtContraseña.SetFocus
        Else
            If Nz(DLookup("Contraseña", "Empleados", "IdEmpleado=" & Me![TxtUsuario]), "") <> "" Then
                auxContraseña = DLookup("Contraseña", "Empleados", "IdEmpleado=" & Me![TxtUsuario])
            End If
            If auxContraseña <> Me.TxtContraseña.Value Then
                If NumIntentos > 1 Then
                    NumIntentos = NumIntentos - 1
                    MsgBox "La contraseña introducida es incorrecta" & vbCrLf & _
                        "Le quedan " & NumIntentos & " intentos" & vbCrLf & vbCrLf & _
                        "Por favor, introduzca otra", vbExclamation, "INTRODUCCIÓN INCORRECTA"
                        Me.TxtContraseña.Value = ""
                        Me.TxtContraseña.SetFocus
                Else
                    MsgBox "Ha superado el numero de intentos", vbCritical, "ADIOS..."
                    DoCmd.Close acForm, Me.Name 'y cerramos el de acceso
                End If
            Else
                If DLookup("IdTipoAcceso", "Empleados", "IdEmpleado=" & Me![TxtUsuario]) = 1 Then
                        '**entrada como administrador
                        MsgBox "Ha entrado el administrador, mostramos todas las tablas", vbInformation, "BIENVENIDO ADMINISTRADOR"
                        Call MuestraTodasTablas
                Else
                        MsgBox "Ha entrado un usuario, ocultamos todas las tablas", vbInformation, "BIENVENIDO USUARIO"
                        Call OcultaTodasTablas
                End If
                        'DoCmd.OpenForm stDocName, , , stLinkCriteria 'Abrimos el formulario correspondiente
                        DoCmd.Close acForm, Me.Name 'y cerramos el de acceso
            End If
    End If
End Sub