表1中有OLE字段oo，以下代码用ADO的参数查询向oo字段添加一个二进制文件，

Public Function AppendFile()

    Dim cmdByRoyalty As ADODB.Command
    Dim prmByRoyalty As ADODB.Parameter
    Dim FileLength As Long
    Dim ByteData() As Byte

    Open "C:\test.rar" For Binary Access Read Lock Write As #1
    FileLength = LOF(1)
    ReDim ByteData(FileLength-1)
    Get #1, , ByteData()
    Close #1

    Set cmdByRoyalty = New ADODB.Command
    With cmdByRoyalty
        .CommandText = "PARAMETERS oleA LongBinary;Insert INTO 表1 ( oo ) VALUES([oleA]);"
        .CommandType = adCmdText
        Set prmByRoyalty = .CreateParameter("oleA", adLongVarBinary, adParamInput, FileLength )
        .Parameters.Append prmByRoyalty
        prmByRoyalty.AppendChunk ByteData()           
        Set .ActiveConnection = CurrentProject.Connection
        .Execute
    End With
   
End Function