Public Sub ViewRecordset(rs As ADODB.Recordset)
    Dim frm As Form, ctrl As Control, fld As Variant, frmName As String
    Set frm = Application.CreateForm
    frmName = frm.Name
    For Each fld In rs.Fields
        Set ctrl = Application.CreateControl(frm.Name, acTextBox, acDetail, , fld.Name)
        ctrl.Name = fld.Name
    Next
    DoCmd.OpenForm frm.Name, acFormDS, , , acFormEdit, acWindowNormal
    Set Forms(frmName).Recordset = rs
End Sub


Public Sub test()
Dim rs As ADODB.Recordset
    
    
Set rs = New ADODB.Recordset
rs.Open "Table1", CurrentProject.Connection

    ViewRecordset rs
    
    rs.Close
    Set rs = Nothing
End Sub