ADODB.Stream

[Ytong]

Tengo una base de datos SQL en la que tengo campos bynary con imágenes
Cuando en un momento dado las recupero para mostrarlas mediante ADODB.Stream se me presenta el problema de que la memoria se va llenando.
El código a partir de un recordset que contiene la descripción de las imágenes es éste (VB6):

Set rstRecordset = New ADODB.Recordset
rstRecordset.Open SentenciaSql, Conexion
While Not rstRecordset.EOF
Set stmImagen = New ADODB.Stream
stmImagen.Type = adTypeBinary
stmImagen.Open
stmImagen.Write rstRecordset("CampoImagen")
stmImagen.SaveToFile Directorio + NombreFichero
stmImagen.Close
Set stmImagen = Nothing
rstRecordset.MoveNext
Wend
rstRecordset.Close
Set rstRecordset = nothing

Podriais darme alguna sugerencia para evitar el que se me llene la memoria del ordenador.

Gracias