每个查询后内存为什么增加？

作了个破译mysql 数字密码的程序，不知为什么每次查询后内存都会增加，如何解决，以下是代码：
Public q As StringPrivate Sub Command1_Click()
q = DataGrid1.Columns(1)
Label1.Caption = q
If (Timer1.Enabled) Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End SubPrivate Sub Command2_Click()
End
End SubPrivate Sub Timer1_Timer()
Call test
End SubSub test()
Static i As Long
If (i = 0) Then i = Text1.Text
If (i = 2147483646) Then
Label2.Caption = "pass not int"
Timer1.Enabled = False
End If
i = i + 1
Dim s As String
Label4.Caption = i
s = "select password(" + Str(i) + ") as pass"
Adodc1.RecordSource = s
Adodc1.Refresh
If (q = DataGrid1.Columns(0)) Then
Label2.Caption = i
Timer1.Enabled = False
Else
Label2.Caption = "no pass"
End If
End Sub