авторPublic Sub ViewRecordset(rs As DAO.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

автор Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("locSettings", dbOpenSnapshot)
ViewRecordset rs

rs не закрывай, иначе перестанет отображаться