Recordset - loop

Hej med jer,

Jeg har forsøgt at udligne nogle poster i en tabel. Dette gør jeg ved at lave to recordset, et med negative poster(KreditRS og et andet med positive poster(ModrRS). Fidusen skulle være, at jeg tager den første negative post i yderste loop og udligner med den første positive post i inderste loop som give et netto = 0. Derefter skal det inderste loop resettes og der skal laves et nyt positiv recordset, som ikke medtager de tidligere. På den måde håber jeg at kunne udgå at løbe recordsetne igennem mange gange.

Mit problem er, at jeg ikke kan få den inderste loop til at hoppe ud og lave et nyt recordset.

Det er lidt svært at forklare,  og min programeringsevner er ikke så gode.

Håber nogen kan hjælpe.

Her er koden:

Sub ADOUdl()

Dim KreditRS As New Recordset
Dim ModrRS As New Recordset

KreditRS.Open "select * from tbltest where netto<0 and AnnulleretStatus=0 order by EksNr", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

KreditRS.MoveFirst
Do While Not KreditRS.EOF
    Debug.Print KreditRS("AutoID")
    ModrRS.Open "Select * from tbltest where Netto>=0 and AnnulleretStatus=0 order by Eksnr", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    ModrRS.MoveFirst
    Do While Not ModrRS.EOF
        If ModrRS("Netto") + KreditRS("Netto") = 0 Then
            Debug.Print ModrRS("AutoID")
            ModrRS("AnnulleretStatus").Value = 1
            ModrRS.Update
            KreditRS("AnnulleretStatus").Value = 1
         
            ModrRS.MoveLast
        Else
            ModrRS.MoveNext
        End If
    Loop
    KreditRS.MoveNext
Loop 'KreditRS
ModrRS.Close
Set ModrRS = Nothing
KreditRS.Close
Set KreditRS = Nothing
End Sub


Tabellen:

AutoID    Dato    VareNr    EksNr    Netto    AnnulleretStatus
1    12-12-2006    10250    1    1    0
2    12-12-2006    10250    1    -1    0
3    12-12-2006    10250    1    1    0
4    12-12-2006    10250    1    1    0
5    12-12-2006    10250    1    1    0
6    12-12-2006    10300    2    300    0
7    12-12-2006    10300    2    -300    0
8    12-12-2006    10300    2    300    0
9    13-12-2006    50000    200    -1    0
10    13-12-2006    50000    200    -1    0
11    13-12-2006    50000    200    -1    0
12    13-12-2006    50000    200    -1    0
13    13-12-2006    50000    200    -1    0
14    13-12-2006    50000    200    -1    0
15    13-12-2006    50000    200    -1    0