Public Function fValidate_Recordset()
Dim db as DAO.Database
Dim rs as DAO.Recordset
Set db=CurrentDB
Set rs=db.OpenRecordset("SELECT * FROM YOUR_TABLE")
'You now have a DAO Recordset that you can manipulate
'Loop through it and perform some actions
Do While Not RS.EOF
If RS!Validation_Field=Something Then
'Perform An Action
RS.MoveNext
Else
'Perform Another Action
RS.MoveNext
End If
Loop
Set rs=Nothing
Set db=nothing
End Function