error en update con vb.net y access

[edersalas]

Hola, soy nuevo en los foros y me he trabado en una aplicaion de escritorio que estoy haciendo en VB.net con conecciona a access, en verdad, solo eso me falta, ya que actualiza, graba y todo, pero al momento de actualizar los campos local y observacion no rellenan y dan un error de sintaxis.

El codigo es como sigue:

Código:

Dim midni, minombre2, miapellido2, mifotocheck2, mitarjetap2, milocal, micontrato2, misector2, miservicio2, mijefe2, miobs As String
        midni = dni.Text
        minombre2 = nombres2.Text
        miapellido2 = apellidos2.Text
        mifotocheck2 = ftc2.Text
        mitarjetap2 = tp2.Text
        milocal = txt_local.Text
        micontrato2 = Convert.ToString(contrato2.SelectedItem)
        misector2 = Convert.ToString(sector2.SelectedItem)
        miservicio2 = Convert.ToString(servicio2.SelectedItem)
        mijefe2 = Convert.ToString(jefe2.SelectedItem)
        miobs = "1"

        Dim consulta, completarAct As String
        consulta = "update personal set nombres2='" & minombre2 & "', apellidos2='" & miapellido2 & "', fotocheck2='" + mifotocheck2 + "', tarjetap2='" + mitarjetap2 + "', contrato2='" + micontrato2 + "', sector2='" + misector2 + "', servicio2='" + miservicio2 + "', jefe2='" + mijefe2 + "' where (dni='" + midni + "')"
        completarAct = "update personal set local='" + milocal + "' where (dni='" + midni + "')"

        Using cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\basededatos\bd.mdb")
            Dim cmd As OleDbCommand = cnn.CreateCommand()
            Dim cmd2 As OleDbCommand = cnn.CreateCommand()
            cmd.CommandText = consulta
            cmd2.CommandText = completarAct
            cnn.Open()
            cmd.ExecuteNonQuery()
            cmd2.ExecuteNonQuery()
        End Using

Agradeceria mucho su ayuda ya que me bota un error de sintaxis en la sentencia update del cmd2.