You can have a look at
http://www.vbmysql.com/samplecode/basicblob.html
or
If you're using VB6 then I suggest you use ADODB.Stream and the ADODB.Command object. Here's a code snapshot. Haven't tried this piece in code but I guess you'll have an idea
Dim lcObjCmd as ADODB.Command
Dim lcObjStream as ADODB.Steam
Dim lcObjParam as ADODB.Parameter
' Add code to open connection etc.
set lcobjcmd = new adodb.command
lcObjcmd.Commandtext = "insert table1(customerid, phone) select ?, ?"
set lcobjparam = lcobjcmd.CreateParameter("@customerid", adInteger, adParamInput)
lcobjcmd.Parameters.Append lcobjparam
set lcobjparam = lcobjcmd.CreateParameter("@photo", adBinary, adParamInput)
lcobjcmd.Parameters.Append lcobjparam
set lcObjStream = new ADODB.Stream
lcobjstream.Open
lcObjStream.LoadFromFile "d:\blabla\photox.jpg"
lcobjcmd.parameters("@customer").value = 1
lcobjcmd.parameters("@photo").value = lcobjstream.Read(-1)
lcobjcmd.execute