ACTUALIZAR DATOS MYSQL

Doble clic en el botón de Actualizar

Sub Actualizar_Clic(  )
Dim conexion As New ADODB.Connection
'Lo mismo para el nombre del servidor en este caso estoy empleando una versión en local
Dim miservidor,bd,user,sql As String
'el Recordset
Dim rs As ADODB.Recordset
'Estableciendo la conexión
miservidor = "127.0.0.1"
bd = "directorio"
user = "root"
Set conexion = New ADODB.Connection ' con esto utilizamos la conexión indicada más arriba
conexion.Open "DRIVER={MySQL ODBC 3.51 Driver}" _
& ";SERVER=" & miservidor _
& ";DATABASE=" & bd _
& ";UID=" & user _
& ";OPTION=16427?"
Set rs = New ADODB.Recordset
sql = "UPDATE Example set " & _
                 "nombre='" & TextBox2.Text & _
                 "',apellido='" & Me.TextBox3.Text & _
                 "' where id='" & TextBox1.Text & "'"

    conexion.Execute sql

    conexion.Close

    Set cn = Nothing
End Sub