Приведу примерчик, как делаю я:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Public Function SY_FilePrepareFromDisk(FullFileName As String, ByRef bFile As Variant, ByRef Dat As Date, Optional Silent As Boolean = False) As Boolean
Dim x As Integer
SY_FilePrepareFromDisk = False
If Not SY_FileCheckLen(FullFileName, Silent) Then Exit Function
Dat = FileDateTime(FullFileName)
On Error GoTo FileErr
x = FreeFile
Open FullFileName For Binary Access Read Shared As #x
ReDim bFil(0 To LOF(x) - 1) As Byte
Get #x, , bFil
bFile = bFil 'иначе ругается на тип данных
Erase bFil
Close #x
On Error GoTo 0
SY_FilePrepareFromDisk = True
Exit Function
FileErr:
If Not Silent Then MsgBox "Ошибка при работе с файлом." + vbCr + Err.Description, vbCritical, "Чтение файла"
On Error GoTo 0
Exit Function
End Function
файл готовится в переменной bFile и дальше через Command передается как параметр хранимки.
