メモリを開放するには？

Ｐｏｗｅｒ 2007-09-08 01:25:38 No: 137358

下記でメモリ不足になります
タスクマネージャでメモリ使用量を見ていると
Set Rst = ActX_oraDb.CreateDynaset(SQL, 4&)のところで使用量が増えて
その後にNothingをしているのですが使用量は増加していくばかりです
委託していたシステムをメンテナンス料が高いということで
システムを買い取ってしまいほとんど説明の無い引継ぎでメンテナンスさせられている為
オラクルのＤＢに接続したことが無くメモリ開放の方法がわかりません
なにかメモリを開放する方法はないのでしょうか？
よろしくお願いします

Win2000pro VB6.0 Ora8.16

Dim SQL As String
Dim Rst As OraDynaset
Dim Fields1_LIST As OraCollection
Dim Fields2_LIST As OraCollection
Dim Buf_Fields1(10000) As Long
Dim Buf_Fields2(10000) As Long
Dim AA as long

  SQL = "SELECT Fields1_VAR,Fields2_VAR FROM TABLE
  Set Rst = ActX_oraDb.CreateDynaset(SQL, 4&)
  Set Fields1_LIST = Rst.Fields("Fields1_VAR").Value
  Set Fields2_LIST = Rst.Fields("Fields2_VAR").Value
  For AA = 1 To 10000
      Buf_Fields1(AA) = Fields1_LIST(AA)
      Buf_Fields2(AA) = Fields2_LIST(AA)
  Next AA
  Rst.Close
  Set Rst = Nothing
  Set Fields1_LIST = Nothing
  Set Fields2_LIST = Nothing