Fejl i VB kode

Jeg har lavet noget kode, det køre fint nok, men jeg får ikke slettet mine poster, faktisk får jeg ikke slettet noget overhovedt, er der nogen der kan se hvorfor?,

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
    Debug.Print Rst1.Fields("SL01002")
   
 
    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 slettets!!!
Loop