Memory leak in ado

Hi,
I'm using ADO 2.7  and have memory leak when I try several times add and 
delete records.  See code (VB6)

Dim RS As ADODB.Recordset
Private Sub Main()
Dim counter As Long
    Set RS = New ADODB.Recordset
    RS.Fields.Append "Name", adVarChar, 255
    RS.Open , , , adLockOptimistic

    For counter = 1 To 100
        Add_Records
        Delete_Records
    Next
    MsgBox "Complete"
End Sub

Private Sub Add_Records()
    For counter = 1 To 10000
RS.AddNew "Name", "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
    Next
End Sub

Private Sub Delete_Records()
    counter = RS.RecordCount
    If counter = 0 Then Exit Sub
    RS.MoveLast
    Do Until RS.BOF = True
        RS.Delete
        RS.MovePrevious
    Loop
End Sub