Sql immagine salvata

Non Riesco a leggere una immagine salvata su database SqlIte in formato BloB come fare ??

Grazie

questo mio codice
Dim Sql as String
Dim Rs as RecordSet
DIm P as picture
sql ="Select Pic, Codice From Anagrafica WHERE Codice = "+ chr(34) + IDA+ chr(34)
rs = BookDB.sqlSelect( sql )
while not rs.eof
P =rs.Field(“Pic”).PictureValue
rs.moveNext
wend
rs.close