🚀 go-pugleaf

Witam
Dla swoich potrzeb firmowych tworzę sobie od lat. choć moja wiedza jest bardzo mała.

jak ktoś może mi pomóc polecam się.
Rekordset tworzy tabele i wszystko dział dobrze, lecz zawsze się żle tworzy pierwszy rekord się sypie.
Napisany kod;

Dim db As DAO.Database

Dim rcNr1 As DAO.Recordset
Dim rcNr3 As DAO.Recordset ' do tabelki pionowej z towarami
Set db = CurrentDb

Set rcNr1 = db.OpenRecordset("SELECT import.Pole1 FROM import WHERE (((import.Pole1) Is Not Null))", dbOpenDynaset)
Set rcNr3 = db.OpenRecordset("Import1")
rcNr1.MoveFirst

Do While Not rcNr1.EOF
With rcNr3
If rcNr1.Fields(0) = 1203855 Then
rcNr1.Move (-1)
 idzamowienia = rcNr1.Fields(0)
rcNr1.Move (2)
a = Mid(idzamowienia, 1, InStr(idzamowienia, Chr(45)) - 1)
b = Left(Mid(idzamowienia, InStr(idzamowienia, Chr(45)) + 1), 9)

c = Replace(Mid(idzamowienia, InStr(idzamowienia, b)), b & Chr(45), "")
Else
If InStr(rcNr1.Fields(0), b & Chr(45) & c) > 0 Then
               .AddNew
       ![idzamowienia] = idzamowienia
         ![a] = a
      ![d] = rcNr1.Fields(0)
 rcNr1.Move (1)
   ![e] = rcNr1.Fields(0)
rcNr1.Move (1)
  ![f] = rcNr1.Fields(0)
                 .Update
                  Else
                 End If
  rcNr1.MoveNext
End If
     End With
Loop
rcNr1.Close
rcNr3.Close
    Set rcNr1 = Nothing
      Set rcNr3 = Nothing
End Sub

podejrzewam,że tajemnica jest w:
Do While Not rcNr1.EOF a może w czymś innym?
Sławek