Hi All,
Can any one tell me how to load picture from MsAccess to vb6. I stored the picture in MsAccess "OLE" field using the following code:
Private Sub Command1_Click()
    Set rspics = New ADODB.Recordset
    Set db = New ADODB.Connection
    Set mystream = New ADODB.Stream
    mystream.Type = adTypeBinary
    DBLoader
    db.Provider = DBDriver
    db.Open "Data Source = " & DBName
    CommonDialog1.Filter = "Photo Files(*.bmp,*.jpg,*.gif)|*.bmp;*.jpg;*.gif"
    CommonDialog1.ShowOpen
    Picture1.Picture = LoadPicture(CommonDialog1.FileName)
    rspics.Open "picturess", db, adOpenDynamic, adLockOptimistic
    rspics.AddNew
      mystream.Open
      mystream.LoadFromFile Trim(CommonDialog1.FileName)
      rspics.Fields("path") = Trim(CommonDialog1.FileName)
      rspics.Fields("pic") = mystream.Read
    rspics.Update
    rspics.Close
    mystream.Close
End Sub

How to load this picture from access to vb6. Plzzz Help