ELIMINAR DATOS DESDE VBA EXCEL A MYSQL

Programemos el botón de Eliminar

Private Sub Eliminar_Click()
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 = "DELETE FROM Example WHERE id='" & TextBox1.Text & "'"

    conexion.Execute sql

    conexion.Close

    Set conexion = Nothing
End Sub