Dim myDataTable As DataTable = New DataTable()
myDataTable = Connection.ExecuteQuery("select * from ...")
If myDataTable.Rows.Count <> 0 Then
Response.ContentType = myDataTable.Rows.Item(0)("imgtype")
Response.BinaryWrite(myDataTable.Rows.Item(0)("photo"))
end if