ник: Дядя Федор
DoCmd.OpenForm "frm1", , , , acFormReadOnly
А вообще способов много.
Например, на отркытие пробежаться по всем полям и задать Locked=true
Или задать Me.RecordsetType = 2
Из хелпа:
Sub Form_Open(Cancel As Integer)
Const conSnapshot = 2
If gstrUserID <> "ADMIN" Then 'Если юзер админ (можно проверять другое усдовияе)
Forms!Employees.RecordsetType = conSnapshot
End If
End Sub