set frm.Recordset = (ранее созданный рекордсет)

Function N()
    Dim rst  As New ADODB.Recordset
    LocalCnnOpen True
    rst.CursorLocation = adUseClient
    rst.Open  "select * from ReceptCard" , LocalCnn, adOpenKeyset, adLockOptimistic, adCmdText
    Set f = New Form_ReceptCard
    With f
        Set .Recordset = rst
        .UniqueTable =  "ReceptCard" 
        .Visible = True
    End With
End Function

Function N()
    Dim wrk As Workspace
    Dim rst As DAO.Recordset
    Dim db As DAO.Database
    Dim dbName As String
    
    dbName = CurrentProject.Path &  "\Datas\LDF.mdb" 
    Set wrk = CreateWorkspace( "", " admin ", "  ", dbUseJet)
    Set db = wrk.OpenDatabase(dbName, , False, dbName)
    Set rst = db.OpenRecordset(" select * from tblOrderDetails where orderid=- 2144338848 ", dbOpenDynaset)'
    Set f = New Form_frmOrderDetails
    With f
       Set .Recordset = rst
       .Visible = True
    End With
    
End Function