Access - Cargar Subformularios usando capas

Un saludo , el problema es el siguiente:
Siempre he programado en MVP (Capas que se encuentran en 3 modulos ) , para lo cual necesito cargar un subformulario donde los datos los extraigo a través de una consulta pero al guardarlo en un recordset y pasarlo de una capa a otra me muestra error. Asimismo la consulta está bien puesto que lo pruebo abriendo una consulta en Access
Ejem:
Capa Usuario (Donde se encuentra los forms)
subform1.sourceobject= Call Negocio.MostrarSubform (e )

Capa Negocio (Logica del negocio)

Public Function MostrarSubform (e as string) as recordset
Dim record as recordset
record = Call Datos.CargarGrilla(e)
End Public

Capa Datos (Querys de mi aplicativo)
Public Function CargarGrilla (e as string) as recordset
Dim db as database
dim rs as recordset
Dim sql as string
Set db = Currentdb
sql = "select * from tabla1 "
set rs = db.openrecord ( sql, dbopenrecordsnapshot) -- Esta consulta esta comprobada.
Cargargrilla =rs
End Public

Si me pudieran ilustrar estaría agradecido
Saludos Cordiales