Visual Basic.NET - No me ejecuta ExecuteNonQuery()

Hola podrian ayudarme a encontrar el error trato de Ejecutar el boton actualizar y me salta a la exeption.... pese a que en el modo depuración me levanta los datos modificado en los texbox


Private Sub FormActualizarProfes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla '_Escuela_AsistenciaDataSet3.PPROFESOR' Puede moverla o quitarla según sea necesario.

Try
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "C:\Users\HTC\Documents\Escuela-Asistencia.accdb"
conexion.Open()
MsgBox("Conexion Exitosa", vbInformation, "Conectado")

Catch ex As Exception
MessageBox.Show("Ha ocurrido un error al conectar", "Error")

End Try



End Sub

Private Sub ButtonActualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ActualizarButton.Click


' Dim Consulta_Actualizar As String

Try

'hacer el UPDATE
Dim CMDUpdate As New OleDb.OleDbCommand("update PPROFESOR SET NOMBRE = '" & NOMBRETextBox.Text _
& "', APELLIDO = '" & APELLIDOTextBox.Text _
& "', FECHANACIMIENTO = '" & FECHATextBox.Text _
& "', CALLE = '" & CALLETextBox.Text _
& "', NUMERO = '" & NUMEROTextBox.Text _
& "', DPTO_PISO = '" & DPTOTextBox.Text _
& "', BARRIO = '" & BARRIOTextBox.Text _
& "', LOCALIDAD = '" & LOCALIDADTextBox.Text _
& "', TELEFONO = '" & TELEFONOTextBox.Text _
& "', CELULAR = '" & CELULARTextBox.Text _
& "', EMAIL = '" & EMAILTextBox.Text _
& "', FACEBOOK = '" & FACEBOOKTextBox.Text _
& "', OCUPACION = '" & OCUPACIONTextBox.Text _
& "', PROFESION = '" & PROFESIONTextBox.Text _
& "', OTROTELEFONO = '" & EMEREGENCIATextBox.Text _
& "', TIPODESANFGRE = '" & RHTextBox.Text _
& "', ENFERMEDADESSUFRIDAS = '" & ENFERMEDADTextBox.Text _
& "', OBSERVACIONES = '" & OBSTextBox.Text _
& "' WHERE DNIPROFESOR = '" & DNITextBox.Text & "'", conexion)



conexion.Open()
CMDUpdate.ExecuteNonQuery()
conexion.Close()
MsgBox("El registro ha sido Actualizado", vbInformation, "Actualizado")



Catch ex As Exception
MsgBox("Ha Ocurrido un Error. No se ha podido actualizar el registro", vbExclamation, "Error")
End Try

End Sub