Error 13 en tiempo de ejecucion... No coinciden los tipos

Antes de mi pregunta les mando un saludo puesto que soy nuevo en el foro así como agradecer de ante mano sus respuestas...

Estoy elaborando una base de datos en Access, donde se requiere un usuario y una contraseña para el acceso, así mismo dependiendo del usuario se tendrá acceso a un formulario en particular.

Me estoy ayudando de los ejemplos de Nekkitto (específicamente "GestionPermisosUsuarios")

Específicamente en con este código me esta mostrando el error 13 antes mencionado...

Public Function tipoUser() As String
Dim nombreUsuario As String
Dim tipUs As Boolean
Dim vInd As Integer
Dim rst As Recordset
Dim miSql As String
nombreUsuario = Forms!FChivato.txtUser.Value
miSql = "SELECT * FROM TPass WHERE NomUser='" & nombreUsuario & "'"
Set rst = CurrentDb.OpenRecordset(miSql, dbOpenSnapshot)
For vInd = 2 To 4
tipUs = rst.Fields(vInd).Value      (Se resalta esta sección)
If tipUs = True Then
tipoUser = rst.Fields(vInd).Name
Exit For
End If
Next vInd
rst.Close
Set rst = Nothing
End Function

Les explico un poco: Se tienen 11 tipos de usuarios + el Administrador, aunque la base será la misma, cada usuario tendrá acceso únicamente al formulario que podrá modificar.

Ya tengo el formulario de acceso... Todo bien aquí

Formulario Menú... Aquí es donde aparece el erro al intentar acceder a algún formulario.

Tengo:

Windows 7

Microsoft 2010

Saludos y gracias