RE:PASAR VALOR VAR OBJ ADO A SUBFORMULARIO??
Hola
Se puede de la siguiente manera
Dim mCnn as ADODB.Connection
Dim mRst as ADODB.Recordset
Private Sub Form_Load()
Set mCnn = CurrentProject.Connection
mRst.Open "SELECT * FROM MI_TABLA", mCnn, adOpenDynamic, adLockOptimistic
'Lo asigna al formulario
Set Me.Recordset = mRst
EndSub
Hay varias restricciones aqui...
CurrentProject se basa en un ADP y no un MDB ya que los ADP usan por defecto una conexion ADO, por supuesto debes cambiar esa instruccion por la tuya propia.
Lo otro solo funciona para Access 2000/XP o superior
Este ejemplo lo vi en un libro que se llama Desarrollo de Soluciones de Microsoft Access con Microsoft SQL Server de Albrecht y Nicol, asi que no te doy garantias de que funcione al 100% con otros manejadores ADO de otros proveedores.
Saludos