vb.net - VB.NET からのミリ秒アクセスで Autonumber フィールドを使用してクエリを更新する

Question

VB.NET からの ms アクセスで Autonumber フィールドを使用してデータを更新する方法。このコードを更新してみます。しかし、何も変わりません。

Private Sub BTNUPDATE_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNUPDATE.Click
    Try
        getConnect()

        Dim strSQL As String
        Dim iCount As Integer
        strSQL = " UPDATE DEPARTMENT SET [DEPART]=@DEPART,[DEP_DSCRPTN]=@DEP_DSCRPTN WHERE [DEP_ID] = @DEP_ID"
        Dim cmd As New OleDb.OleDbCommand(strSQL, Conn)
        cmd.Parameters.AddWithValue("@DEP_ID", CInt(DEPID.Text))
        cmd.Parameters.AddWithValue("@DEPART", CMBDEPT.Text)
        cmd.Parameters.AddWithValue("@DEP_DSCRPTN", TXTDESC.Text)
        Conn.Open()
        iCount = cmd.ExecuteNonQuery()
        Conn.Close()
        If iCount > 0 Then
            MessageBox.Show("Record Updated Successfully!", "Update", MessageBoxButtons.OK, MessageBoxIcon.Information)
            If Windows.Forms.DialogResult.OK Then
                BTNCLEAR.PerformClick()
            End If
        Else
            MsgBox("No record was inserted")
        End If

    Catch ex As Exception
        MsgBox("ERROR: " + ex.Message, MsgBoxStyle.Information, "Update")
    Finally

        BTNCLEAR.PerformClick()
    End Try

End Sub

データベースDEP_IDには Autonumber があります。とDEPID取得するラベル ボックスDEP_IDです。実際には、ラベルはフォームに隠されています。上記のコードを試します。しかし、データベースには何も変わりません。コードを確認して修正してください。