如何将一个二进文件写入SQL的 varbinary 类型字段中

Question

'将二进制文件写入大字段:
    PrimaryCLS("附件").AppendChunk adoStream.Read
    If adoStream.State = 1 Then adoStream.Close
          Dim SelectPicture As String
            Dim A As Long
            
            SelectPicture = CDlopen.FileName
            If SelectPicture = "" Then Exit Sub
            A = InStr(1, SelectPicture, "\")
            D = A
            Do Until A = 0
               A = InStr(A + 1, SelectPicture, "\")
               If A > 0 Then D = A
            Loop
            SelectPicture = Right(SelectPicture, Len(SelectPicture) - D)
            txtFields(6).Text = SelectPicture