Χρήση εντολών της SQL αντί για βρόχους κώδικα.
Για παράδειγμα, αντικατάσταση του κώδικα
Do While Not tblPersons.EOF
If tblPersons("Name") = looking Then
MsgBox "Your number is " & tblPersons("Number")
End If
tblPersons.MoveNext
Loop
με τον κώδικα
Set qryPersons = dbsDb.OpenQuery("SELECT Number from Persons Where Name ='" & looking & "'")
Set rstPersons = qryPersons.OpenRecordset
If Not rstTables.EOF
MsgBox "Your number is " & rstPersons("Number")
End If