Χρήση εντολών της 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