concurrency violation

ikanyuchiew

究竟在什么情况之下会有这样的事情发生？

我不认为我的code有问题, 如下
      
        ...................

        Dim objUpdCmd As New OleDb.OleDbCommand
        Dim sUpdSQL As String = "Update Customers SET Customers.CompanyName= ? " & _
                                "WHERE Customers.CustomerID = ?"

        objUpdCmd.Connection = objConn
        objUpdCmd.CommandText = sUpdSQL

        Dim objParam As OleDb.OleDbParameter
        objParam = objUpdCmd.Parameters.Add("@CustomerID", OleDb.OleDbType.VarChar)
        objParam.SourceColumn = "CustomerID"
        objParam.SourceVersion = DataRowVersion.Original

        objParam = objUpdCmd.Parameters.Add("@CompanyName", OleDb.OleDbType.VarChar)
        objParam.SourceColumn = "CompanyName"
        objParam.SourceVersion = DataRowVersion.Current
        objDataAdapter.UpdateCommand = objUpdCmd

        Try
            objConn.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        If objConn.State = ConnectionState.Open Then
            Try
                objDataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
                objDataAdapter.Fill(objDS, "Customers"
                objConn.Close()
                Dim objTable As DataTable
                objTable = objDS.Tables("Customers"
                Dim drRows As DataRowCollection
                Dim objCurrentRow As DataRow
                drRows = objTable.Rows

                DisplayTable2(objTable)
                MessageBox.Show("about to update, press return to start!"

                Dim drRow As Data.DataRow
                'drRow = objTable.NewRow
                drRow = drRows.Find("Hiang"
                drRow.BeginEdit()
                drRow("CompanyName" = "I Love Hiang"
                drRow.EndEdit()

                MessageBox.Show("after update, press return to view"
                DisplayTable2(objTable)
                objConn.Open()
                'objDataAdapter.ContinueUpdateOnError = True
                objDataAdapter.Update(objDS, "Customers"

            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End If

exception error message box shown :
concurrency violate occured: updata command ...........