代码应该是没有错误的,可能和JPG文件格式有关吧
不知道IMAGE对JPG图片格式有什么特别要求 当我导入一批图片时,有时会出错,就是值是导入了,但是无法读取导入SQL IMAGE的字段?代码如下   
    Dim MY_A0100 As String
    Dim CN As New ADODB.Connection
    Dim RS As New ADODB.Recordset
    Dim MsStream As New ADODB.Stream    For I = 0 To Me.File1.ListCount - 1
        If UCase(Right(Me.File1.List(I), 4)) = ".BMP" Or _
           UCase(Right(Me.File1.List(I), 4)) = ".JPG" Then
            
            MsStream.Type = adTypeBinary
            MsStream.Open
            MsStream.LoadFromFile Me.File1.Path & "\" & Me.File1.List(I)            Me.Adodc1.Recordset.AddNew
            Me.Adodc1.Recordset.Fields("b0110") = "1"
            Me.Adodc1.Recordset.Fields("a0100") = STR(I)
            Me.Adodc1.Recordset.Fields("caption1") = "photo"
            Me.Adodc1.Recordset.Fields("ole1").Value = MsStream.Read
            Me.Adodc1.Recordset.Update            Me.Adodc1.Recordset.Update
            MsStream.Close
        End If
    Next I
'*********************************
me.adodc1连接已定义好
me.file1是一个文件控件