ник: kot_k_k
Me.имя_поля.SetFocus
твой случай
Private Sub Найти_Click()
Set rst = CurrentDb.OpenRecordset("Zakaz", dbOpenDynaset)
NewIdZak = "1"
Do While (rst.EOF = False)
If Val(NewIdZak) < Val(rst!IdZak) Then NewIdZak = rst!IdZak
rst.MoveNext
Loop
NewIdZak = Str(Val(NewIdZak) + 1)
Me.FIOZak.SetFocus
End Sub