Dim curResult As Cursor = dbSQL.ExecQuery("select Image from Basho where " & Location)
curResult.Position = 0
If curResult.RowCount > 0 Then
Dim binImage() As Byte, Flux As InputStream
binImage = curResult.GetBlob("Image")
Flux.InitializeFromBytesArray(binImage, 0, binImage.Length)
Bmp.Initialize2(Flux)
Flux.Close
End If
curResult.Close
Return Bmp