Perchè non provi ad usare un ADODB.Recordset e a leggerti il tiff come un qualsiasi campo di una tabella?

dim rsRecords as ADODB.Recordset

Dopo esserti ricavato il recordset contenente l'immagine, devi appoggiarti ad ADODB.Stream

cioe':

Dim mstream As ADODB.Stream
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
' Open it
mstream.Open

mstream.Write rsRecords.Fields("IMAGE").Value 'dove "IMMAGINE" e' il nome del campo della tabella che contiene il tuo .TIF

mstream.SaveToFile "C:\MIO.TIF"

mstream.Close
Set mstream = Nothing

Imgedit1.Image = "C:\MIO.TIF"
Imgedit1.Page = 1
Imgedit1.Display