aprendendo update

galera, to tentando executar isso dentro de um botao...mas n esta me funcionando... alguem pode ver onde estou errando...Obrigado,Hermeson Dim Sql As String Dim conn As New OdbcConnection Dim cmd As New OdbcCommand conn.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};" + "Server=localhost;Database=agenda;uid=root;pwd=dba;option=3" Sql = "Update tbcliente Set nome=@nome, telefone=@telefone Where id=@id" conn.Open() cmd = New OdbcCommand(Sql, conn) cmd.Parameters.Add(New OdbcParameter("@id", Label3.Text)) cmd.Parameters.Add(New OdbcParameter("@nome", TextBox1.Text)) cmd.Parameters.Add(New OdbcParameter("@telefone", TextBox2.Text)) cmd.ExecuteNonQuery() Label4.Text = "Dados atualizados!" CarregaDG() ListBox1.SelectedIndex = ListBox1.Items.IndexOf(ListBox1.Items.FindByValue(Label3.Text)) conn.Close()