二进制的存储

Question

我从一个.dat文件读取二进制数据，然后存到一个表中：
Private Sub Command1_Click()On Error GoTo ErrorHandlecmbFile="d:\\1.dat"
    
    Open cmbFile For Binary As #1
    
    Input #1, s   
    
    Close #1
    
    Dim con As New ADODB.Connection
    
    Dim rs As New ADODB.Recordset
    
    con.ConnectionString = conStr
    con.Open
    
    rs.Open "select * from SmsSend ", con, 1, 3
    
    rs.AddNew
    
    rs.Fields("MsgContentBin") = s          '二进制字段
    ……    rs.Update
    
    rs.Close
    Set rs = Nothing
    con.Close
    Set con = Nothing
    
ErrorHandle:
    If Not con Is Nothing Then
        Set con = Nothing
    End If
    MsgBox Err.Description
End Sub但是总是报错，将那个二进制字段赋值注释掉，就可以存储了，哪位帮帮忙，谢谢

Answer 1

cmbFile="d:\1.dat"
    dim s() as byte
    Open cmbFile For Binary As #1
    
    get #1,,s   
    
    Close #1

Answer 2

不好意思，忘了一句
cmbFile="d:\1.dat"
dim s() as byte
Open cmbFile For Binary As #1
    Dim l As Long
    L = LOF(1)
    ReDim s(L - 1) As Byte
    get #1,,s   
    Close #1

Answer 3

get 处报错
变量使用了一个 Visual Basic 不支持的自动化类型