Error de sintaxis en la instrucción update

hola estoy haciendo una base de datos utilizando una conexión de visual basic 2008 y access y ya cree los botones pero me tira error en la instrucción update, quisiera saber que errores tengo este es mi código en el botón modificar pero me tira error y aparece que e error es de la sintaxis en la instrucción update

Sub modificar_n()
Dim CMD As New OleDb.OleDbCommand("UPDATE PARTICULARES SET Nombre='" & nombre.Text & "', Edad='" & edad.Text & "', Sexo='" & sexo.Text & "', Dirección='" & dirección.Text & "', Historia= '" & historial.Text & "', Examen Físico='" & examen.Text & "', Diagnostico='" & diagnostico.Text & "', Tratamiento='" & Tratamiento.Text & "', Costo='" & costo.Text & "' where Nombre='" & nombre.Text & "'", conectar)
conectar.Open()
CMD.ExecuteNonQuery()
conectar.Close()
Mostrar()
MsgBox(" Registro Modificado")
End Sub