VB 把图片存入数据库（2）

Option Explicit
Dim Cn As ADODb.Connection
Dim Rs As ADODb.Recordset
Dim mst As ADODb.Stream
Dim mystr As String
Private Sub Form_Load()
  Adodc1.ConnectionString = "uid=admin;pwd=111;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.MDB"
  Adodc1.RecordSource = "data"
  Adodc1.Refresh
End Sub
Private Sub Command1_Click() '保存图片到数据库
  If mystr <> "" Then
     Set Cn = New ADODb.Connection
     Cn.ConnectionString = ";DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.MDB"
     Cn.Open
     Set Rs = New ADODb.Recordset
     Rs.Open "select * from data", Cn, adOpenStatic, adLockOptimistic
     Set mst = New ADODb.Stream
     mst.Type = adTypeBinary
     mst.Open
     mst.LoadFromFile mystr
     Rs.AddNew
     Rs.Fields("图片").Value = mst.Read
     Rs.Update
     Rs.Close
     Cn.Close
     Adodc1.Refresh
   Else
     MsgBox ("请先选择图片！")
  End If
End Sub
Private Sub Command3_Click()
  CommonDialog1.Filter = "bmp|*.jpg;*.bmp;*.gif"
  CommonDialog1.FilterIndex = 2
  ' 显示"打开"对话框
  CommonDialog1.ShowOpen
  Picture1.Picture = LoadPicture(CommonDialog1.FileName)
  mystr = CommonDialog1.FileName
End Sub
Private Sub Command2_Click()
  End
End Sub