Error: System.Runtime. EnteropServices .COMException (0x800A0CC1)

[wagugwe]

Dear all,

Am faced with the above problem. I am designing an application in VB.Net 2003 and using Ms Access 2000 as the database. I have the following code:

    Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
 
        Try
            Dim response As Short
 
            response = MsgBox("Is the above information correct?", MsgBoxStyle.YesNo, "UBOS")
 
            If response = MsgBoxResult.No Then
                cboStaffCode.Focus()
                Exit Sub
 
            Else
                If Not NewEduc Then
                    rs.Fields(1).Value = cboStaffCode.Text
                    rs.Fields(2).Value = cboQualification.Text
                    rs.Fields(3).Value = txtInstitution.Text
                    rs.Fields(4).Value = dtpDateStarted.Text
                    rs.Fields(5).Value = dtpDateCompleted.Text
                    rs.Fields(6).Value = cboAward.Text
                    rs.Fields(7).Value = cboLevelofAward.Text
                Else
                    OpenRecordset(("EducationAttainment"))
                    rs.AddNew()
                    rs.Fields(0).Value = cboRecNo.Text
                    rs.Fields(1).Value = cboStaffCode.Text
                    rs.Fields(2).Value = cboQualification.Text
                    rs.Fields(3).Value = txtInstitution.Text
                    rs.Fields(4).Value = dtpDateStarted.Text
                    rs.Fields(5).Value = dtpDateCompleted.Text
                    rs.Fields(6).Value = cboAward.Text
                    rs.Fields(7).Value = cboLevelofAward.Text
                End If
                rs.Update()
 
                MsgBox("1 Record Has Been Saved", MsgBoxStyle.OKOnly, "UBOS")
            End If
            cmdSave.Enabled = False
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show(ex.ToString)
        End Try
 
 

When I save a new record I have no problem, the problem only arrises when I try to modify a record. I get the following Error Message:

Error: System.Runtime. EnteropServices .COMException (0x800A0CC1): Item cannot be found in the collection corresponding to the requested name or ordinal. at ADODB.Fields.ge t_Item(Object Index)

I ve checked several Forums but I ve failed to get a solution to my problem.


Mona

[kenobewan]

Welcome to TSDN. Suggest writing messages to find out where it is falling over.