Const adTypeBinary = 1
Const adLockOptimistic = 3
Const adOpenForwardOnly = 0

Dim strFile
strFile = "C:\Temp\Test.jpg"

Dim objStream
Set objStream = CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile(strFile)

Dim cnn, rst
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=SQLOLEDB.1; Data Source=(local); Integrated Security=SSPI;Initial Catalog=Test;"
Set rst = CreateObject("ADODB.Recordset")

cnn.BeginTrans
rst.Open "Table1", cnn, adOpenForwardOnly, adLockOptimistic

rst.AddNew
rst.Fields("FileName").Value = strFile
rst.Fields("Bild").AppendChunk(objStream.Read)
rst.Update

rst.close
cnn.CommitTrans

' Clean-Up
objStream.Close
cnn.Close

Set rst = Nothing
Set objStream = Nothing
Set cnn = Nothing