Problemas para enviar por INSERT

Hola, nuevamente yo, he podido hacer que se inserten datos a través de la
red en un servidor SQL 2000, el problema es que lo tengo que hacer como
INSERT INTO <tabla> (campos), (valores) y no usando lo ADO como figura a
continuación. La conexión ya se realiza, el tema insertar objetos grandes
(mp3, graficos, etc.) en forma binaria por medio de SQL puro, cómo puedo
hacer?

Private Sub cmdCarga_Click()
Dim rs As ADODB.Recordset
Dim Archivo As ADODB.Stream

Dim HoraInicio As Date, HoraFin As Date
Dim id As Integer
' On Error GoTo ErrorExecute

Form2.lstErrors.Clear
List2.Clear

' Change mousepointer to busy.
Screen.MousePointer = vbHourglass

Set rs = New ADODB.Recordset
Set Archivo = New ADODB.Stream
Archivo.Type = adTypeBinary


id = 0
HoraInicio = Now
HoraFin = HoraInicio + #12:00:30 AM#
While Now < HoraFin
id = id + 1
Archivo.Open
Archivo.LoadFromFile "c:\tema.mp3"
rs.Open "Select * from empleado", Conexion, adOpenKeyset,
adLockOptimistic
rs.AddNew
' rs.Open "insert into empleado (nombre) values ('christian javier "
& id & "')", Conexion, adOpenKeyset, adLockOptimistic
' rs.Close

rs.Fields("nombre").Value = "cjm" & id
rs.Fields("foto").Value = Archivo.Read
rs.Update
Archivo.Close
rs.Close
Wend

MsgBox "tiempo de ejecución: " & Format(Now - HoraInicio, "HH:MM:SS")
MsgBox "registros cargados: " & id

Screen.MousePointer = vbDefault

ErrorExecute:

' Error checking. Bad query.

If Conexion.State = adStateOpen Then
errcase = 3
End If

ErrorLog

End Sub