Hi I have done something simple wrong but just can't see it. Can someone help please.

Private Sub Command6_Click()
    
    Sub RemoveDuplicatesRecordset()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim varLastValue As Variant
    
    Set db = CurrentDb()
    
    ' SQL query must SORT the table by the duplicate field to group them together
    strSQL = "SELECT Other_Partyb FROM CsvInter_T ORDER BY Other_Partyb;"
    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
    
    ' Initialize value check variable
    varLastValue = Null
    
    ' Loop through the rows
    If Not (rs.BOF And rs.EOF) Then
        rs.MoveFirst
        Do Until rs.EOF
            ' Check if current row matches the last saved value
            If rs!Other_Partyb = varLastValue Then
                rs.Delete
            Else
                ' Update the variable to hold the new unique value
                varLastValue = rs!Other_Partyb
            End If
            rs.MoveNext
        Loop
    End If
    
    ' Clean up variables
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    
    MsgBox "Duplicate loop cleanup complete!", vbInformation, "Done"
End Sub
End Sub