Sub exaRecordsetEdit()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Employees")
rs.MoveFirst
Do While Not rs.EOF
rs.Edit
rs!Title = UCase$(rs!Title)
rs.Update
rs.MoveNext
Loop
rs.Close
End Sub