Blob-felt til .bmp fil

Jeg bruger ADODB stream og gemmer via en temp file, ellers er variant typen ikke et image.

Public Function getImage(lNo As Long, lMask As Long) As Variant
    Dim strStream As ADODB.Stream
    Dim strSQL As String
    Dim rstPics As ADODB.Recordset
   
    Set strStream = New ADODB.Stream
    strStream.Type = adTypeBinary
    strStream.Open

    Set rstPics = New ADODB.Recordset
    strSQL = "SELECT * FROM Images WHERE ImageNo=" & CStr(lNo)
    rstPics.CursorType = adOpenStatic
    rstPics.LockType = adLockReadOnly
    rstPics.Open strSQL, MyConn
    If rstPics.RecordCount > 0 Then
        rstPics.MoveFirst

        strStream.Write rstPics!Img
        strStream.SaveToFile gsTempFile, adSaveCreateOverWrite
        Set getImage = LoadPicture(gsTempFile)
        Kill (gsTempFile)
    End If
       
    strStream.Close '
    Set strStream = Nothing
End Function

Til overstående: lMask kan undlades, den bruges ikke i dette eksempel.

Jeg glemte vist at nævne at jeg bruger VB .net så datatypen ADODB kan jeg ikke bruge. -pis. Kan en variant ikke bare skrives ned i en fil? og hvordan gør man det?

Glem lige hvad jeg skrev tidligere! Det virker bare!!! Tak