Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
'replace DatabaseName with your database name and ServerName with, guess what, your SQL Server name
conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DatabaseName;Data Source=ServerName"
conn.Open
rs.Open "SELECT ID, Image FROM BLAH", conn
Dim aByte() As Byte
Dim iFile As Integer
Do Until rs.EOF
ReDim aByte(rs.Fields("Image"

.ActualSize)
aByte = rs.Fields("Image"

.GetChunk(rs.Fields("Image"

.ActualSize)
iFile = FreeFile()
Open "C:\images\" & rs.Fields("ID"

.Value & ".JPEG" For Binary As #iFile
Put #iFile, , aByte
Close #iFile
rs.MoveNext
Loop