How to insert an attachment into a table through form in ms access 2007

[fnemo]

hi all,
I would like to insert an attachment object into a table using a form. I have created a table with a field type attachment. But when i am inserting data into table , error is coming.
The error is:
Runtime error: -2147217887
Cannot perform this operation.

Private Sub cmd_add_save_Click()

Dim cmd As ADODB.Command, rs As ADODB.Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.AccessConnection
cmd.CommandType = adCmdUnknown

Set rs = New ADODB.Recordset
rs.Open "Purchase", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rs
    .AddNew ' create a new record
    .Fields(0) = Me.txt_add_prno
    .Fields(1) = Me.txt_add_prdesc
    .Fields(2) = Me.txt_add_prvalue
    .Fields(3) = Me.txt_pr_date
    .Fields(4) = Me.Purchase_PRNote ' Error occurs at this line. 
  
    .Update
End With
Set rs = Nothing
End Sub

Purchase_PRnote is the name of the textbox which contains the attachment.

[ADezii]

Working with an Attachment Field in VBA is bo no means intuitive. I did not have much time, but I did have some success adding Attachments to an Attachment Field in a Table. It is not exactly what you are looking for, but it may point you in the right direction.

Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset

Set dbs = CurrentDb
  
Set rs = dbs.OpenRecordset("Purchase", dbOpenDynaset)

Set rs2 = rs.Fields("PRNOTE").Value

With rs
  .Edit
    .Fields(0) = Me.txt_add_prno
    .Fields(1) = Me.txt_add_prdesc
    .Fields(2) = Me.txt_add_prvalue
    .Fields(3) = Me.txt_pr_Date
      rs2.AddNew
        rs2.Fields("FileData").LoadFromFile Me!Purchase_PRNOTE
      rs2.Update
  .Update
End With

rs.Close
Set rs = Nothing
Set rs2 = Nothing