UPDATE_ERRO_MYSQL

 Private Sub BtAltera_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtAltera.Click
        sql = ([Ô]update TbFerrtas set Data = [ô][Ô] & TxtDta.Text & [Ô][ô], Cod = [ô][Ô] & TxtCod.Text & _
               [Ô][ô], Nome = [ô][Ô] & TxtNome.Text & [Ô][ô], Empresa = [ô][Ô] & TxtEmpresa.Text & _
               [Ô][ô], Estq = [ô][Ô] & TxtEstq.Text & [Ô][ô], UltDta = [ô][Ô] & TxtUltDta.Text & _
               [Ô][ô], Bp = [ô][Ô] & TxtBP.Text & [Ô][ô], Obs = [ô][Ô] & TxtObs.Text & _
               [Ô][ô], Where Registro = [ô][Ô] & TxtReg.Text & [Ô][ô][Ô])


        Dim objCmd As New MySqlCommand(sql, objConexao)

        objCmd.Parameters.AddWithValue([Ô]Registro[Ô], TxtReg.Text)
        objCmd.Parameters.AddWithValue([Ô]Data[Ô], TxtDta.Text)
        objCmd.Parameters.AddWithValue([Ô]Cod[Ô], TxtCod.Text)
        objCmd.Parameters.AddWithValue([Ô]Nome[Ô], TxtNome.Text)
        objCmd.Parameters.AddWithValue([Ô]Empresa[Ô], TxtEmpresa.Text)
        objCmd.Parameters.AddWithValue([Ô]Estq[Ô], TxtEstq.Text)
        objCmd.Parameters.AddWithValue([Ô]UltDta[Ô], TxtUltDta.Text)
        objCmd.Parameters.AddWithValue([Ô]Bp[Ô], TxtBP.Text)
        objCmd.Parameters.AddWithValue([Ô]Obs[Ô], TxtObs.Text)

        Try
            objConexao.Open()
            objCmd.ExecuteNonQuery()

        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            objConexao.Close()
            Me.Close()
        End Try
    End Sub