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

.

Relevant Pages

  • A VB6 program to generate CONSTants for a user defined gradient
    ... EndProperty ... It may be used for amy moral purpose. ... Dim mGreen1 As Long ... Private Sub ColorDisplay_MouseDown(Button As Integer, Shift As Integer, _ ...
    (comp.lang.basic.visual.misc)
  • Re: access 2003
    ... Dim ctl As Control ... Dim rs As Recordset ... This sets the query definitions for choosing data to create an invoice using ... Event on combo box: Private Sub ChooseCust_AfterUpdate ...
    (microsoft.public.access.conversion)
  • Re: Gradient Generator BMP Tool Improved
    ... EndProperty ... It may be used for amy moral purpose. ... Dim mGreen1 As Long ... Private Sub ColorDisplay_MouseDown(Button As Integer, Shift As Integer, _ ...
    (comp.lang.basic.visual.misc)
  • Multiple Calendar Control on one page
    ... Protected WithEvents Calendar1 As System.Web.UI.WebControls.Calendar ... Private Sub Page_Init(ByVal sender As System.Object, ... Dim mo As String ...
    (microsoft.public.inetserver.asp.components)
  • Calendar Control issue.
    ... Protected WithEvents Calendar1 As System.Web.UI.WebControls.Calendar ... Private Sub Page_Init(ByVal sender As System.Object, ... Dim mo As String ...
    (microsoft.public.dotnet.framework.aspnet)