Uso de DLookUp con varios criterios

[Juan Hernández]

Hola.

Recurro a este grupo a ver si podeis solucionar mi problema porque mis conocimientos no dan para más.

Tengo el siguiente código y me lío con las comillas y no lo consigo hacer funcionar.

tblUsuariosPermisos es el formulario donde está el campo Acceso e IDUsuario
NombreFormulario es una variable de tipo String donde recojo el nombre del actual formulario

Dim bPermisoFor As Boolean

bPermisoFor = DLookup("Acceso", "tblUsuariosPermisos", "IdUsuario= '" _ 
& sUsuarioActivo & "' AND NombreFormulario= '" _ 
& sNombreFormulario & "'")

Después si bPermisoFor  = False cierra todo y si es true sigue adelante con la validación

De forma provisional para que no me de más errores lo he dejado con 2 comparaciones diferentes pero no es válido porque las compara por separado de la siguiente manera:

Dim bPermisoFor As Boolean
Dim bPermisorFor2 As Boolean

bPermisoFor = DLookup("Acceso", "tblUsuariosPermisos", ("IdUsuario= '" _
& sUsuarioActivo & "'"))
bPermisoFor2 = DLookup("Acceso", "tblUsuariosPermisos", ("NombreFormulario= '" _
& sNombreFormulario & "'"))
' Con un Si o un No, en la variable "bPermisoFor y bPermisoFor2"
' tomamos una decisión.
If (bPermisoFor = False And bPermisoFor2 = False) Then

...

Solicito ayuda

SOS