Problem In Vba Code To Access The Records From Access Tables

Iam using the following code for inserting the values from access form in to the access database table ITEMS, but iam getting compile errors, may i know where iam going wrong in the code.

Also help me in updating, deleting and viewing of records from database table ITEMS to the form when i run the program.

Following is my code :


Private Sub ADD_Click()

On Error GoTo Err_ADD_Click

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = CurrentProject.AccessConnection

'Create an instance of the ADO Recordset class, and
'set its properties

Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Source = "SELECT * FROM ITEMS"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.CursorLocation = adUseServer
.Open
End With

'Set the form's Recordset property to the ADO recordset



DoCmd.RunSQL "INSERT INTO ITEMS(ITEM_CODE, ITEM_NAME, ITEM_CATEGORY) VALUES('" & ITEM_CODE.Text & "','" & ITEM_NAME.Text & "','" & CATEGORY.Text & "')"



Set Me.Recordset = rs
Set rs = Nothing
Set cn = Nothing

Exit_ADD_Click:
Exit Sub

Err_ADD_Click:
MsgBox Err.Description
Resume Exit_ADD_Click

End Sub



compile ERROR as follows:

you can't reference a property or method for a contro unless the control has the focus.