Access: Enter

[Sanic]

Hallihallo,
folgendes Problem:
Ich programmiere eine etwas umfangreichere Datenbank mit einem VB Modul.

Dieses VB Modul zieht eine Liste mit IDs aus einer Datenbank.
Dann habe ich noch eine Abfrage die aussieht wie folgt:

In suchlief steht immer die ID Nummer, zu der die Daten gesucht werden sollen.
Das VB Script macht jetzt folgende Schritte:

Schleife
"suchlief leeren"
"neue suchID in suchlief einfügen"
"abfrage ausführen"

Nun passiert aber folgendes:
Die ID wird immer wunderbar in "suchlief" geschrieben, nur irgendwie kann der allererste Abruf mit VB Script damit nichts anfangen!
Dann gibt es kein Ergebnis.
Rufe ich die Abfrage manuell ab, funktioniert es.

Was ich witzigerweise beobachtet habe.
Ich habe einmal eine gültige ID im "suchlief" Feld eingetragen und in dem feld ENTER gedrückt.
Dann das VB Script laufen lassen und siehe da, die erste Abfrage funktioniert!
Der Rest leider nicht mehr

Ich bin halb am verzweifeln woran das liegen könnte.

Danke im vorraus

p.s. hier der schleifen code:

Set rs = db.OpenRecordset("SELECT LiefererCounter FROM Lieferer ORDER BY LiefererCounter DESC;", dbOpenDynaset)
rs.MoveFirst
i = rs![LiefererCounter]

Do Until k > i
    Call DelLiefTable
    cn.Execute "INSERT INTO suchlief (suchlief) VALUES ('" & k & "');"
    Call GetAnz
    k = k + 1
Loop

Funktion GetAnz:

Public Function GetAnz()
     Set db = CurrentDb
     Set rs2 = db.OpenRecordset("SELECT Count([lieferer]) AS Anzahl FROM abf_lief_num;")
     MsgBox (rs2![Anzahl])
End Function

Achtet nicht auf den Variablen wirrwarr, die schleife läuft korrekt

 

[Sanic]

Das Rätsels Lösung !
Zwischen dem INSERT INTO und dem Call GetAnz
muss ein Sleeper von min. 500 gesetzt werden.
Access ist nunmal so verdammt langsam