如何在VB中访问Oracle中的Blob(4000)字段以读出其中的图形？(200分)

如题

VB不知道
Delphi中
var
MS: TMemoryStream;
begin
MS := TMemoryStream.Create;
try
Query1Images.SaveToStream(MS);
Image1.Picture.Bitmap.LoadFromStream(MS);
finally
MS.Free;
end;

end;