Visual Basic - BOTON MODIFICAR

ESTOY REALIZANDO UN CODIGO PARA EL BOTON MODIFICAR PERO ME APARECE EL SIGUIENTE ERROR " Instruccion SQL no válida, se esperaba 'DELETE' ,INSERT', 'PROCEDURE', ´SELECT' o 'UPDATE' ................. es para modificar una base de datos de access desde Visual Basic 2010..........Acontinuación Les coloco el codigo que llevo.......por favor ayudenme lo necesito URGENTE!!!

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim conexion As String = ("Provider = Microsoft.Jet.OleDb.4.0;Data Source = C:\Users\blanca\documents\visual studio 2010\Projects\Damnificados_Desastres2\Damnificados_Desastres2\Damnificados_Desastres2.mdb")
Dim meconexion As New OleDbConnection(conexion)
meconexion.Open()

Dim Modificar As String = "UPDATE Damnificados SET Registro = ‘" & Registro.Text & "‘, Cedula = ‘" & Cedula.Text & "‘, NombreJefeHogar = ‘" & NombreJefeHogar.Text & "‘,MiembrosHogar = ‘" & MiembrosHogar.Text & "‘,Direccion = ‘" & Direccion.Text & "‘,N_Formulario = ‘" & N_Formulario.Text & "‘,FechaRegistro = ‘" & FechaRegistro.Text & "‘"
conexion = " WHERE Cedula = ‘" & Cedula.Text & "‘"
Dim comando = New OleDb.OleDbCommand(conexion, meconexion)

Try

Dim da As OleDbDataAdapter
da = New OleDbDataAdapter(conexion, meconexion)
Dim cmdBuilder As New OleDbCommand
Dim dt As New DataTable
da.Fill(dt)
Dim dr As DataRow = dt.NewRow()
comando.ExecuteNonQuery()
dt.AcceptChanges()
meconexion.Close()

Catch ex As Exception
MessageBox.Show(ex.Message)
MsgBox(ex.ToString)
End Try
Me.Validate()
Me.DamnificadosBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Damnificados_Desastres2DataSet)
End Sub

¡¡¡GRACIAS POR SU COLABORACION!!!!

Hola Blanca, para mi te hiciste un nudo con las variables...

Proba de hacer el update asi

"UPDATE Damnificados SET Registro = '" & Registro.Text & "', Cedula = '" & Cedula.Text & "', NombreJefeHogar = '" & NombreJefeHogar.Text & "‘,MiembrosHogar = '" & MiembrosHogar.Text & "',Direccion = '" & Direccion.Text & "',N_Formulario = '" & N_Formulario.Text & "',FechaRegistro = '" & FechaRegistro.Text & "' WHERE Cedula = '" & Cedula.Text & "'"

fijate que el where esta en el mismo update, vos lo habias puesto en la cadena de conexion dentro de la variable conexion

espero sea la solucion, saludos

Por favor me ayudan con este boton lo necesito urgente..........¡¡¡gracias!!!

Probé este ejemplo, y funciona excelente...! aporte de Christian,,,

Gracias!!! por su ejemplo...

porque van los '", y no normalmente "

Hay alguna otra forma para modificar en vb 2012?

geral renunciemos

Creo que se solparaon variables
Tienes

Dim Modificar As String = "UPDATE Damnificados SET Registro = ‘" & Registro.Text & "‘, Cedula = ‘" & Cedula.Text & "‘, NombreJefeHogar = ‘" & NombreJefeHogar.Text & "‘,MiembrosHogar = ‘" & MiembrosHogar.Text & "‘,Direccion = ‘" & Direccion.Text & "‘,N_Formulario = ‘" & N_Formulario.Text & "‘,FechaRegistro = ‘" & FechaRegistro.Text & "‘"
conexion = " WHERE Cedula = ‘" & Cedula.Text & "‘"
Dim comando = New OleDb.OleDbCommand(conexion, meconexion)

conexion solo tiene "WHERE..."

Deberia ser
Dim strModificar As String = "UPDATE Damnificados SET Registro = ‘" & Registro.Text & "‘, Cedula = ‘" & Cedula.Text & "‘, NombreJefeHogar = ‘" & NombreJefeHogar.Text & "‘,MiembrosHogar = ‘" & MiembrosHogar.Text & "‘,Direccion = ‘" & Direccion.Text & "‘,N_Formulario = ‘" & N_Formulario.Text & "‘,FechaRegistro = ‘" & FechaRegistro.Text & "‘"
strModificar = strModificar & " WHERE Cedula = ‘" & Cedula.Text & "‘"
Dim comando = New OleDb.OleDbCommand(strModificar, meconexion)


La otra manera de hacer actualizaciones es usar un Dataset (