Access - URGENTE , modificar subformulario con var obj

Tengo un grave problema deseo modificar un subformulario con un nuevo contenido recuperado mediante una variable objeto , el codigo es el siguiente :
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

'Use the ADO connection that Access uses
Set cn = CurrentProject.AccessConnection
'Create an instance of the ADO Recordset class,
'and set its properties
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Source = "SELECT * FROM CARAT"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With
'Set the form's Recordset property to the ADO recordset
Set Me.Secundario9.Form.RecordSource = rs
'Set Me.Recordset = rs
Set rs = Nothing
Set cn = Nothing

Este procedimiento me da error , alguien me puede guiar ya que ando un poco perdido , MUCHAS GRACIAS

El error que estás experimentando puede deberse a que estás intentando establecer la propiedad RecordSource del subformulario utilizando un objeto Recordset de ADO en lugar de un nombre de tabla o consulta. Para establecer la propiedad RecordSource con un objeto Recordset de ADO, necesitas utilizar un objeto DAO.Recordset en su lugar. Aquí hay un ejemplo de cómo hacerlo:


En este ejemplo, estamos abriendo una referencia a la base de datos actual y luego abriendo un objeto Recordset de DAO en modo Dynaset. Luego, establecemos la propiedad Recordset del subformulario en el objeto Recordset de DAO y cerramos tanto el objeto Recordset como la base de datos.

Espero que esto te ayude a solucionar el problema.