Inclusao de Novo Nivel de Usuario

Prezados

Estou com um sistema e um modelo de acesso que foi copiado de modelos existentes no site uma vez que nao sei nada de VBA.

Esse modulo controla acesso de usuarios do tipo 1, 2 e 3 .

Desejo agora criar um usuario do tipo 4 no qual ele seja direcionado logo ao fazer logim para um formulario específico e a partir daí ele poder acessar os demais formularios contidos a partir deste, bem como visualizar e imprimir relatórios.

Segue as informações dos controles deste formulario de logim... se alguem puder me ajudar.... desde ja agradeço.

Tenho no sistema um formulario chamado Cad.Fisio, e é este que desejo abrir com o usuario 4 logo que ele acesse o banco de dados...


segue modulo:

Option Compare Database

Private Sub btMsg_Click()
MsgBox "O VBA esta liberado...", vbInformation, "Aviso"

End Sub

Private Sub cmdEntrar_Click()

'If GetNetworkComp <> "NTB-BSB-033" Then 'Verifica se a computador logado com a aplicação está correto,
'Quit 'para evitar que a aplicação seja distribuida indevidamente

'Else



Dim Identificacao As Integer
Dim TruestrUserID As String
Dim TruestrPassword As String
Dim TrueNivelSeguranca As String

' Verifica Usuário existente
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone

rs.FindFirst "[strUserID]=" & "'" & Me.txtuser & "' and [strPassword]=" & "'" & Me.txtsenha & "'"

If Not rs.NoMatch Then

TruestrUserID = rs.Fields("strUserID")
TruestrPassword = rs.Fields("strPassword")
TrueNivelSeguranca = rs.Fields("NivelSeguranca")

UserAccessName = TruestrUserID
UserAccessPass = TruestrPassword
UserAccessLevel = TrueNivelSeguranca


'MsgBox "Banco de Dados está liberado para uso."


Form.visible = False


DoCmd.Restore

If UserAccessLevel = 1 Then
DoCmd.OpenForm "FormAdministrador"
End If


If UserAccessLevel = 2 Then
DoCmd.OpenForm "frmPrincipal"
End If

If UserAccessLevel = 3 Then
DoCmd.OpenForm "abertura"
End If

If UserAccessLevel = 4 Then
DoCmd.OpenForm "Menuconsultadentista2"
End If

If UserAccessLevel = 5 Then
DoCmd.OpenForm "Menuconsultadentista3"
End If

Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtsenha.Value = ""
Exit Sub
End If
'End If



End Sub




Private Sub Form_Load()
'Me.Imagemlogo.Picture = CurrentProject.Path & "\imagens\logo.gif"

Dim rs As Recordset, MyVersion As Integer

MyVersion = 1


'Set rs = DBEngine.OpenDatabase("CaminhoDoBackend", False, False, "MS Access;PWD=SenhaDoBackend").OpenRecordset("SELECT VersãoAtual FROM Versao WHERE Código=1")


Set rs = CurrentDb.OpenRecordset("SELECT VersãoAtual FROM Versao WHERE Código=1")


If rs!VersãoAtual > MyVersion Then
MsgBox "Há uma atualização mais recente do aplicativo, acesse o diretório HHH", , ""
Application.Quit
Else
End If

rs.Close
Set rs = Nothing

End Sub

Private Sub Form_Open(Cancel As Integer)
If CurrentProject.IsTrusted Then
Me!btMsg.enabled = True
Me!btMsg.Caption = "O VBA foi liberado."
End If

End Sub

Private Sub txtUser_AfterUpdate()
Me.txtsenha.SetFocus
End Sub