Sub ПрикрепитьФайл(Вложение As Attachment, Соединение As ADODB.Connection, Ид As Long)
    Dim Каталог As String
    Dim Поток As New ADODB.Stream
    Каталог = Environ("TEMP")
    Вложение.SaveAsFile (Каталог & Вложение.FileName)
    With Поток
           .Open
            .Type = adTypeBinary
            .LoadFromFile Каталог & Вложение.FileName
    End With
   
    Dim Параметры As ADODB.Parameter
    Dim Комманда As ADODB.Command
    Set Комманда = New ADODB.Command
    With Комманда
        .ActiveConnection = Соединение
        .CommandText = "хп_ФайлВДокументДляРегистрации"
        .CommandType = adCmdStoredProc
        .NamedParameters = True
        .Parameters.Append .CreateParameter("@Ид", adInteger, adParamInput, , Ид)
        .Parameters.Append .CreateParameter("@ИмяФайла", adVarChar, adParamInput,  500 , Вложение.FileName)
        .Parameters.Append .CreateParameter("@Файл", ????? , adParamInput, , Поток.Read)
        Результат = .Execute()
    End With
    Set Комманда = Nothing
    Set Параметры = Nothing
    Set Поток = Nothing
End Sub