'I have a problem in database Program in VB 6.0 that connects to Ms access which the field datatype is OLE object.
' here is my problem

'when i tried to run my program i always got this error message
'"System Error &H80040E00 (-2147217920)"

'here is my code for uploading the picture....

Private Sub Command1_Click()
    Dialog1.ShowOpen
    TxtPicture.Text = Dialog1.FileName
    Picture1.Picture = LoadPicture(TxtPicture.Text)
End Sub
'and when i tried to save...
Private Sub Command1_Click()
    Data1.recordset.update
End Sub

'...........after that it still have the system error, but however it stilll does save as binary object in the Mcaccess Field.
'please, i need help for these, im working this for more than a week but still no idea..
'hope to solve this,
'thanks in advance..

Private Sub Command1_Click()
Dialog1.ShowOpen
TxtPicture.Text = Dialog1.FileName
Picture1.Picture = LoadPicture(TxtPicture.Text)
End Sub