Народ поможите чем могете :-)

Есть таблица CustomerEngName,
поле Files тип image

Загрузка файла на сервер

Private Sub Command2_Click()

Dim mstream As New ADODB.Stream
Dim rs As New ADODB.Recordset
rs.Open "SELECT Files FROM CustomerEngName WHERE ID=1", "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=UnionDB;Data Source=SRVAPP1", adOpenKeyset, adLockOptimistic

mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile "c:\test.jpeg"
rs.Fields("Files").Value = mstream.Read
rs.Update

End Sub

Проверка

Private Sub Command1_Click()

Dim mstream As New ADODB.Stream
Dim rs As New ADODB.Recordset
rs.Open "SELECT Files FROM CustomerEngName WHERE ID=1", "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=UnionDB;Data Source=SRVAPP1", adOpenKeyset, adLockOptimistic

mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("Files").Value
mstream.SaveToFile "c:\test1.jpeg", adSaveCreateOverWrite

End Sub

Пытаюсь посмотреть
"http://SRVAPP1/unionDB?sql=SELECT FILES FROM CustomerEngName where ID=1"
Нифига не получается!!!!!!!!!!!!!!!
В чём грабли?