Error sentencia SQL en aplicacion VB.net

[piyey]

En realidad el error se encontraba en la línea

Código vb.net:

Dim borrar As New MySqlDataAdapter("Delete from usuarios where Nombre = ct", conexion)
 

estas pasando ct como parte de la cadena, cuando debería ser:

Código vb.net:

Dim borrar As New MySqlDataAdapter("Delete from usuarios where Nombre = `" & ct & "`", conexion)
 

Pero analizando bien el código creo que no es la forma mas idonea para hacerlo, ¿para que declarar un Table y un DataAdaptar y un DataSet si lo que deseas es hacer un DELETE?

Con una variable conexión y una Command es suficiente:

Código vb.net:

Dim query As String = "Delete from usuarios where Nombre = @Nombre"
        Dim ct As String = TextBox1.Text
        Using oConnection As New SqlConnection(oConnectionString)
            Using oCommand As New SqlCommand(query, oConnection)
                oCommand.Parameters.Add(New SqlParameter("Nombre", ct))
                oConnection.Open()
                oCommand.ExecuteNonQuery()
            End Using
        End Using
 

Esta es una mejor forma de hacerlo, aunque yo preferiría con procedimientos almacenados :)

Nota: Aca utilicé los objetos de SqlClient, solo sustituyelos por los de MySql
Saludos