Access - Rick Hunter INFORMES

HOLA OTRA VEZ , MIRA HE INTENTADO HACERLO COMO ME DECIAS

Dim rstpgm2 As ADODB.Recordset
Dim ocomm As ADODB.Connection

Private Sub Report_Open(Cancel As Integer)
Set ocomm = New ADODB.Connection
ocomm.Open "Conex sql"
Set rstpgm2 = New ADODB.Recordset
rstpgm2.Open "SELECT * FROM z3", ocomm, adOpenDynamic, adLockBatchOptimistic, adCmdText
Me.RecordSource = rstpgm2
End Sub

AHORA ME DA UN ERROR EN LA LINEA "me.recordsource=rstpgm2" y me dice que "el tipo no coincide" , BUENO ESTO PARECE LA HISTORIA INTERMINABLE , ¿TIENES ALGUN EJEMPLO DISPONIBLE? ¿ME LO PODRIAS PASAR POR E-MAIL? LA DIRECCION ES [email protected]
ME HARIAS UN GRAN FAVOR , TENGO UN PROYECTO PENDIENTE DE ESTE LATAZO , MUCHAS GRACIAS ...

Ejemplo por aparte no tengo, la tabla de access donde lo tengo jalando pesa como 600 megas y no puedo mandarla...
Pero si te marca eso, intenta con esto otro:

Public StrSql As String

Private Sub Report_Open(Cancel As Integer)
On Error GoTo Atrapa_Errores

StrSql = "SELECT distinct * FROM " & ArchTemp & " ORDER BY " & ArchTemp & ".SERIE, " & ArchTemp & ".CONSECUTIVE"
Me.RecordSource = StrSql

EXIT_REPORT_OPEN:
Exit Sub
Atrapa_Errores:
MsgBox Err.DESCRIPTION
Resume EXIT_REPORT_OPEN

End Sub
y con esto debe andar todo bien...