vb Code:
  1. Public Sub SaveMainDatabaseForEdit()
  2.         SQL = "SELECT [ID] FROM Classes"
  3.         Dim oAdapter As New OleDbDataAdapter(SQL, oConnect)
  4.         oAdapter.Fill(oDataSet)
  5.         For Each DataRow As DataRow In oDataSet.Tables(0).Rows
  6.             MsgBox(DataRow(5).ToString)
  7.         Next
  8.         oConnect = New OleDbConnection(sConnectionString & "Classes.mdb")
  9.         SQL = "UPDATE Classes SET [Class Name] = @ClassName, [Class Code] = @ClassCode, [Class Room] = @ClassRoom, [Grade] = @Grade, [Teacher] = @Teacher WHERE ID = @ID"
  10.         Using oCommand As New OleDbCommand(SQL, oConnect)
  11.             With frmEditClasses
  12.                 oCommand.Parameters.AddWithValue("@ClassName", .txtClassName.Text)
  13.                 oCommand.Parameters.AddWithValue("@ClassCode", .txtClassCode.Text)
  14.                 oCommand.Parameters.AddWithValue("@ClassRoom", .txtClassRoomNum.Text)
  15.                 oCommand.Parameters.AddWithValue("@Grade", .txtGrade.Text)
  16.                 oCommand.Parameters.AddWithValue("@Teacher", .txtTeacher.Text)
  17.                 oCommand.Parameters.AddWithValue("@ID", .icmbClassesIndex + 1)
  18.                 oConnect.Open()
  19.                 oCommand.ExecuteNonQuery()
  20.             End With
  21.         End Using
  22.     End Sub

That code will Edit & Save to the Row the ComboBox Selected Index is selected.

It's set to a variable and used here:

vb Code:
  1. oCommand.Parameters.AddWithValue("@ID", .icmbClassesIndex + 1)




------

I've been trying this way:

vb Code:
  1. Public Sub RefillIDColumn()
  2.         oConnect = New OleDbConnection(sConnectionString & "Classes.mdb")
  3.         SQL = "SELECT [ID] FROM Classes"
  4.         Using oAdapter As New OleDbDataAdapter(SQL, oConnect)
  5.             oConnect.Open()
  6.             oAdapter.Fill(oDataSet)
  7.             Dim i2 As Integer
  8.             For Each i As DataRow In oDataSet.Tables(0).Rows
  9.                 SQL = "INSERT INTO CLASSES ([ID]) VALUES (@ID)"
  10.                 Using oCommand As New OleDbCommand(SQL, oConnect)
  11.                     oCommand.Parameters.AddWithValue("@ID", i2)
  12.                     oCommand.ExecuteNonQuery()
  13.                 End Using
  14.                 '                MsgBox(oDataSet.Tables(0).Rows(i2).Item(0).ToString)
  15.                 i2 += 1
  16.             Next
  17.         End Using
  18.     End Sub

What that is doing is just completly rewriting the ID Column.