Public Sub FindExample()
Dim rst As ADODB.Recordset
Dim strCriteria As String

Set rst = New ADODB.Recordset
strCriteria = "ContactTitle = 'Owner'"

rst.Open "tblCustomers", CurrentProject.Connection, _
adOpenKeyset, adLockOptimistic, adCmdTable
With rst
.Find strCriteria
Do While Not .EOF
' There's a matching row,
' do something with it
Debug.Print .Fields("CompanyName")
' Skip the current record
' and continue searching
.Find strCriteria, 1
Loop
End With
rst.Close
Set rst = Nothing
End Sub

"Но проблема в том, что если этот номер еще не загрузился то ничего не находиит"

неправда.
DoCmd.FindRecord вот именно находит тогда, когда
все записи загрузятся

DoCmd.FindRecord Me.PlanID, , , , , acAll

вот именно, что не догоняешь
остал батенька лет этак на 7

ну так задай для FindRecord требуемые значения.
я что за тебя это должен делать?