Form To Insert Image Into OLE Object Field

Hello,

I have a access table with a OLE Object field that is storing a small signature .bmp image. I have a form that loads that image into a bound object frame. I made a command button that lets you choose a new .bmp image and it then loads the new image into the bound object frame. I am them doing update query on a save button that then save the new image into the table. The form works great. You can pick any .bmp and it shows up good in the bound object frame. When I click the save button and it runs the update query it run it 8 of 10 times fine. Problem is when it does run it the images gets inserted into the table and its destorted. Like its all static or have of the image turns black. Sometime when I run the same update query with out any code changes I get a access error that shuts down access or it inserts the image into the table and when you click on the cell to view it, it says the OLE data is not valid.

So Im not sure if the method Im using is ok or if there is a better way. I do need to store these images in the table tho. Below is the code im using.

code that loads new image picked into bound object frame
Code: Dim MyFolder As String Dim MyExt As String Dim MyPath As String Dim MyFile As String Dim strCriteria As String MyPath = vrtSelectedItem'vrtSelectedItem is the path to the image from the file picker Me.OLE_Sig.Enabled = True Me.OLE_Sig.Locked = False OLEPath = MyPath Me.OLE_Sig.OLETypeAllowed = acOLEEmbedded Me.OLE_Sig.SourceDoc = OLEPath Me.OLE_Sig.Action = acOLECreateEmbed Me.button_load_sig.SetFocus Me.OLE_Sig.Enabled = False Me.OLE_Sig.Locked = True

Then I run this for the save command
Code:DoCmd.SetWarnings FalseDoCmd.OpenQuery "qry_user_edit_update"DoCmd.SetWarnings True

This is the query to save the image.
Code:UPDATE tbl_Users SET tbl_Users.Signer_Sig = [forms]![frm_admin_users_edit]![OLE_Sig]WHERE (((tbl_Users.User_ID)=[forms]![frm_admin_users_edit]![field_userid_info]));

Any help would be great.... Been trying everything and no luck.