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