hi,
can somebody please check for me the below coding:
Private Sub cmdSave_Click()
With Data1.Recordset
.AddNew
!oprid = txtOprID
!name = txtName
!type = cboType.Text
End With
Data1.Refresh

txtOprID = ""
txtName = ""
cboType.Text = ""
End Sub

the error is at the .AddNew.why??please help me!!

Question what is cboType for controle a textbox or combobox


if textbox
Private Sub cmdSave_Click()
With me.Data1
.Recordset.AddNew
.Recordset("oprid") = me.txtOprID.text
.Recordset("name") = me.txtName.text
.Recordset("type") = me.cboType.text
.update
.refresh
End With

me.txtOprID.text= ""
me.txtName .text= ""
me.cboType.Text = ""
End Sub

if combobox or listbox
Private Sub cmdSave_Click()
With me.Data1
.Recordset.AddNew
.Recordset("oprid") = me.txtOprID.text
.Recordset("name") = me.txtName.text
.Recordset("type") = me.cboType.boundtext
.refresh
End With


me.txtOprID.text= ""
me.txtName .text= ""
me.cboType.boundtext= ""