Dim cn as ADODB.Connection
Dim rs = ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

[color="green"]'A bunch of code here to configure/open your connection and recordset
'I am not sure if the recordset rs has to be open or not when you set Me.Recordset equal to it
'I would suspect that it would not have to be open.   [/color]

Me.Recordset = rs

[color="green"]'code to close your connection, rs and clean up memory[/color]

Private Sub Report_Close()

DelQuery

End Sub

Private Sub Report_Open(Cancel As Integer)

On Error GoTo Report_Open_Err

Dim qry As DAO.QueryDef
Dim prop As DAO.Property


Set qry = CurrentDb.CreateQueryDef("USysqryReport", "Select * from Account;")

[color="green"]'This is my ODBC Connection to an Oracle Database, yours will be different. I just created a pass through query from the designer and cut and pasted. [/color]
qry.Properties("Connect").Value = "ODBC;DSN=OracleODBC;UID=budget;PWD=budget;DBQ=MAINFRAME;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAl
lSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=0;"

[color="green"]'set any parameters you have here you wish here like this [/color]
qry.Parameters("some parameter name") = "Some value"

qry.Close
CurrentDb.QueryDefs.Refresh
Me.RecordSource = qry.Name

Report_Open_Exit:
    Set prop = Nothing
    Set qry = Nothing
Exit Sub

Report_Open_Err:
    MsgBox Err.Number & " " & Err.Description
    DelQuery
    Resume Report_Open_Exit


End Sub

Private Sub DelQuery()

On Error GoTo DelQuery_Err

DoCmd.DeleteObject acQuery, "USysqryReport"

DelQuery_Exit:
Exit Sub

DelQuery_Err:
    Select Case Err.Number
        Case 3011 [color="green"]'object does not exist [/color]
            Resume Next
        Case Else
            MsgBox Err.Number & " " & Err.Description
            Resume DelQuery_Exit
    End Select
End Sub