В базе это медленно. Очень. Можно через ADO. Если интересует - кину пример

Взять с диска и запихнуть в базу


Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream

Set cn = New ADODB.Connection
cn.Open "Driver={SQL Server};Server=SQL7;database=MyBD"

Set rs = New ADODB.Recordset
rs.Open "Select * from ReplaceImage", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile Me.FileName.Value

rs.Fields("SubFolder").Value = Me.PathIMAGE.Value
rs.Fields("FileName").Value = Me.NameIMAGE.Value
rs.Fields("Image").Value = mstream.Read
rs.Fields("NotActive").Value = 0
rs.Update

rs.Close
cn.Close



Вынуть и положить на диск


Dim mstream As ADODB.Stream
Dim cn1 As New ADODB.Connection
Dim rs1 As ADODB.Recordset

Set cn1 = New ADODB.Connection
cn1.Open "Driver={SQL Server};Server=SQL7;database=MyBD"
Set rs1 = New ADODB.Recordset
rs1.Open "Select [Image] from ReplaceImage where NotActive = 0", cn1, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs1.Fields("image").Value
mstream.SaveToFile strPath & "images\" & ReplaceImageName, adSaveCreateOverWrite
mstream.Close
rs1.Close
cn1.Close