Có thể làm như sau để image thành binary file:
Module Module1
Sub Main()
Dim img = Image.FromFile("c:\dev\testimage.jpg")
Dim ms As New MemoryStream
img.Save(ms, img.RawFormat)
Dim data = ms.ToArray()
ms.Close()
Dim connStr = "Data Source=servername;Initial Catalog=dbname;Integrated Security=True"
Dim cmdStr = "insert into tmptbl (img) values (@img)"
Dim conn As New SqlConnection(connStr)
Dim cmd As New SqlCommand(cmdStr, conn)
cmd.Parameters.AddWithValue("@img", data)
conn.Open()
cmd.ExecuteNonQuery()
cmdStr = "select img from tmptbl"
cmd.CommandText = cmdStr
cmd.Parameters.Clear()
Dim img2data = CType(cmd.ExecuteScalar(), Byte())
conn.Close()
Dim fs = New FileStream("c:\dev\testimage2.jpg", FileMode.Create, FileAccess.Write)
fs.Write(img2data, 0, img2data.Length)
fs.Flush()
fs.Close()
End Sub
End Module
c:\dev\testimage.jpg là tên cái image bạn muốn chuyển sang binary.