restricciones por usuario

[tox_xo]

hola
tengo dos usuarios y quiero indicar que si es el usuario gerente me aparezca el menuprincipal y si es secre el menuprincipal2, como puedo hacer esa condición?
mi idea era esta:
Private Sub entrar_Click()
With Data1.Recordset
.FindFirst ("usuario='" & textusuario & "'")
If .NoMatch = False Then
If textcontra = !contraseña Then
If !usuario = gerente Then
MsgBox "Bienvenida: " & !usuario, vbInformation + vbOKOnly, "Ingreso de usuario"
inicio.Hide
MDIForm1.Show
menuprincipal.Show
Else
MsgBox "Bienvenida: " & !usuario, vbInformation + vbOKOnly, "Ingreso de usuario"
inicio.Hide
MDIForm1.Show
menuprincipal2.Show
End If

Else
MsgBox "Los datos que usted ingreso no son correctos", vbInformation + vbOKOnly, "Ingreso de usuario"
End If
End If
End With
End Sub

pero en esta parte If !usuario = gerente Then me lo toma como nulo y por lo tanto me aparece el menuprincipal 2 =( ayuda por favor