Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Conn.Open  "provider=SQLOLEDB;Data Source="  & DBHost &  ";Initial Catalog="  & DBName &  ";Integrated Security=SSPI;" 
SQL =  "Select bin from document where id=34 "
Rs.Open SQL, Conn, adOpenStatic
Set ImgThumbnail1.DataSource = Rs
ImgThumbnail.DataField =  "bin"