SQL Statement - UPDATE .... WHERE ?

[Wesley008]

Oki, so I have this Update Statement.

UPDATE Classes SET [Class Name] = @ClassName, [Class Code] = @ClassCode, [Class Room] = @ClassRoom, [Grade] = @Grade, [Teacher] = @Teacher

Now, If I add WHERE ID = @ID to the END. And then add Parameters for it, like I did for the rest of the Columns. I get an Error.

                'oAdapter.UpdateCommand.Parameters.Add("@ID", OleDbType.Integer, 5, "ID")
                oAdapter.UpdateCommand.Parameters.AddWithValue("@ClassName", .txtClassName.Text)
                oAdapter.UpdateCommand.Parameters.AddWithValue("@ClassCode", .txtClassCode.Text)
                oAdapter.UpdateCommand.Parameters.AddWithValue("@ClassRoom", .txtClassRoomNum.Text)
                oAdapter.UpdateCommand.Parameters.AddWithValue("@Grade", .txtGrade.Text)
                oAdapter.UpdateCommand.Parameters.AddWithValue("@Teacher", .txtTeacher.Text)

So, why do I need the WHERE in the Update Statment, and how would I get it to work with this code:

Public Sub SaveMainDatabaseForEdit()
        oConnect = New OleDbConnection(sConnectionString & "Classes.mdb")
        SQL = "UPDATE Classes SET [Class Name] = @ClassName, [Class Code] = @ClassCode, [Class Room] = @ClassRoom, [Grade] = @Grade, [Teacher] = @Teacher"
        Using oCommand As New OleDbCommand(SQL, oConnect)
            With frmEditClasses
                Dim oAdapter As New OleDbDataAdapter
                oAdapter.UpdateCommand = oCommand
                oConnect.Open()
                'oAdapter.UpdateCommand.Parameters.Add("@ID", OleDbType.Integer, 5, "ID")
                oAdapter.UpdateCommand.Parameters.AddWithValue("@ClassName", .txtClassName.Text)
                oAdapter.UpdateCommand.Parameters.AddWithValue("@ClassCode", .txtClassCode.Text)
                oAdapter.UpdateCommand.Parameters.AddWithValue("@ClassRoom", .txtClassRoomNum.Text)
                oAdapter.UpdateCommand.Parameters.AddWithValue("@Grade", .txtGrade.Text)
                oAdapter.UpdateCommand.Parameters.AddWithValue("@Teacher", .txtTeacher.Text)
                Dim DR As DataRow
                DR = oDataSet.Tables(0).Rows(.icmbClassesIndex)
                DR.BeginEdit()
                DR("Class Name") = .txtClassName.Text
                DR("Class Code") = .txtClassCode.Text
                DR("Class Room") = .txtClassRoomNum.Text
                DR("Grade") = .txtGrade.Text
                DR("Teacher") = .txtTeacher.Text
                DR.EndEdit()
                oAdapter.Update(oDataSet)
                oDataSet.AcceptChanges()
            End With
        End Using
    End Sub