如何使用ADODC控件来存储图片？？在线高分求助。

Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\db1.mdb;"
Adodc1.RecordSource = "select * from sample"
Adodc1.Refresh
Set mst = New ADODB.Stream

    mst.Type = adTypeBinary
    mst.Open
    mst.LoadFromFile App.Path + "\" + Text1.Text + ".jpg"
    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields("Photo").Value = mst.Read
    Adodc1.Recordset.Update