vb6 adodc1.recordset.addNew error

**richkid** · Aug 30 '10, 07:51 PM

the following code works but if I try to add a second record it erases the first record in the database (using Access DB)

Code:

...
Me.Adodc1.Recordset.AddNew
    Me.Adodc1.Recordset.Fields("Account").Value = Me.txtACNum.Text
    Me.Adodc1.Recordset.Fields("Title").Value = Me.cboTitle.Text
    Me.Adodc1.Recordset.Fields("First_Name").Value = Me.txtFName.Text
    Me.Adodc1.Recordset.Fields("Last_Name").Value = Me.txtLName.Text
    Me.Adodc1.Recordset.Fields("Address").Value = Me.txtCAddr1.Text
    Me.Adodc1.Recordset.Fields("Address2").Value = Me.txtCAddr2.Text
    Me.Adodc1.Recordset.Fields("Parish").Value = Me.cboCParish.Text
    Me.Adodc1.Recordset.Fields("Telephone").Value = Me.txtCTel.Text
    Me.Adodc1.Recordset.Fields("CEmail").Value = Me.txtCEmail.Text
Me.Adodc1.Recordset.Update
Me.Adodc1.Recordset.Requery
Me.Adodc1.Recordset.MoveFirst