>
Sub CheckUpdatable()
Dim dbs As Database
Dim rstDynaset As Recordset, rstSnapshot As Recordset
Dim fldDynaset As Field, fldSnapshot As Field
' Return Database variable that points to current database.
Set dbs = CurrentDb
' Open dynaset-type Recordset object.
Set rstDynaset = dbs.OpenRecordset("Employees", dbOpenDynaset)
' Open snapshot-type Recordset object.
Set rstSnapshot = dbs.OpenRecordset("Employees", dbOpenSnapshot)
' Get Field object variables pointing to field in each Recordset
'object.
Set fldDynaset = rstDynaset.Fields!LastName
Set fldSnapshot = rstSnapshot.Fields!LastName
' Get current record.
rstDynaset.MoveFirst
rstSnapshot.MoveFirst
' Display value of DataUpdatable property for each Recordset object.
Debug.Print "DataUpdatable (Dynaset-type Recordset): "; _
fldDynaset.DataUpdatable
Debug.Print "DataUpdatable (Snapshot-type Recordset): "; _
fldSnapshot.DataUpdatable
End Sub