把图片加入到数据库里面

Private Sub Command3_Click()
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:1.mdb;Persist Security Info=False"
conn.Execute "create table a (b longbinary)"
End Sub

Private Sub Command4_Click()
    Set b = New ADODB.Recordset
    Set c = New ADODB.Stream
        
        
        c.Mode = adModeReadWrite

    c.Type = adTypeBinary
    c.Open
    c.LoadFromFile "c:1.bmp"
    
    b.Open "select * from a", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:1.mdb;Persist Security Info=False", adOpenDynamic, adLockOptimistic
    b.AddNew
    
    b.Fields.Item(0).Value = c.Read()
    
    
    b.Update
    
    b.Close
    Set b = New ADODB.Recordset
    b.Open "select * from a", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:1.mdb;Persist Security Info=False", adOpenKeyset, adLockOptimistic
    MsgBox b.RecordCount
    
    b.MoveLast
    
    c.Write (b.Fields.Item(0).Value)
    
    c.SaveToFile "c:aa.bmp", adSaveCreateOverWrite
    
    Picture1.Picture = LoadPicture("c:aa.bmp")
End Sub