Find ens poster i en tabel

Jeg skal lave noget VB kode, så jeg finder alle de poster som er ens, det som jeg har lavet virker ikke rigtig, som man kan se på min kode, vil det ikke kunne gå.

Er der nogen som kan lave noget kode, hvor jeg starter på sidste post i tabelen (SL01), og sammenligner denne post med resten af posterne i tabellen, og der efter går jeg en post tilbage (MovePrevious) og sammenligner denne post med alle de andre poster, og sådan bliver jeg ved omdtil man når tilbage til første post.
Man skal have to curser, som hver peger på den samme tabel, den ene curser1 skal pege på den post som de andre poster skal sammenlignes med, og den anden curser2 skal være den som går alle posterne igennem for den føste curser.

dette er hvad jeg har prøvet, men virker ikke...

Sub SletAlt()
Dim Dbs As Database
Dim Rst1 As Recordset
Dim Rst2 As Recordset
Dim strSQL As String
Dim Debitor As String
Dim svar As Integer
Set Dbs = CurrentDb
Set Rst1 = Dbs.OpenRecordset("Select * from SL01")
Set Rst2 = Dbs.OpenRecordset("Select * from SL01")
Rst1.MoveLast
Rst2.MoveLast
Rst2.MovePrevious

Do While Not Rst1.BOF

    Do While Not Rst2.BOF
        'Debug.Print Rst2.Fields("SL01002")
        If (Left(Rst1.Fields("SL01002"), 4) = Left(Rst2.Fields("SL01002"), 4)) And (Left(Rst1.Fields("SL01003"), 5) = Left(Rst2.Fields("SL01003"), 5)) Then
        Debitor = Rst2.Fields("SL01001")
        strSQL = "DELETE FROM SL01 WHERE SL01001= '" & Debitor & "'"

        Dbs.Execute strSQL
       
        End If
        Rst2.MovePrevious
    Loop
    svar = MsgBox("Næste runde", vbOKOnly, "poster")
    Rst1.MovePrevious
    Rst2.MoveLast      'Der opstår måske nogle problemmer her, dem som bruges til at undersøge!!!
Loop

End Sub


Jeg håber ikke at mit svar er for inviklet, jeg uddyber gerne. Håber at I kan følge mig

Hvergang en post bliver sammenlignet skal posten slettes for curser2, og tabellen skal opdateres uden at curseren mister sit felt