Sono daccordo con te....sono appena approdato a d ASP NET quindi non conosco ancora bene i comportamenti del sistema tuttavia ho rilevato che non succedeva nulla perchè ricaricando attraverso Page_Load venivano ricaricati i valori in origine ti posto tutto il codice cosi forse riesco ad essere più chiaro...in ogni caso ti invito a suggerirmi altre strade piuttosto che continuare a fare errori
codice:
Partial Class Modifica3
    Inherits System.Web.UI.Page

    Dim x As String
    Dim pAssoluto As String = Server.MapPath(x)
    Dim nomeDb As String = "Database.mdf"
    Dim cartella As String = Server.MapPath("FileUpload\")

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then ' Questo significa che se la pagina non è stata ricaricata da un evento 
            'deve compiere le operazioni che seguono, altrimenti no.
            Dim queryString As String = "Select * From Anagrafica where id = '1';"
            Dim connection As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=" & pAssoluto & "\App_Data\" & nomeDb & ";Integrated Security=True;Connect Timeout=30;User Instance=True")
            Dim command As New SqlCommand(queryString, connection)
            connection.Open()

            Dim reader As SqlDataReader = command.ExecuteReader()
            If reader.HasRows Then
                reader.Read()
                't.Text = reader("nome")
                TextBox1.Text = reader("nome")
                TextBox2.Text = reader("cognome")
                DropDownList1.Text = reader("tipoProdotto")
            End If

            Dim pTextBox As New TextBox
            Me.Page.Form.Controls.Add(pTextBox)
        End If

        'If Not IsPostBack Then ' Questo significa che se la pagina non è stata ricaricata da un evento 
        'deve compiere le operazioni che seguono, altrimenti no.
        Dim qs2 As String = "Select * from TProdotti where Prodotti = '" & DropDownList1.Text & "'"
        Dim connection2 As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=" & pAssoluto & "\App_Data\" & nomeDb & ";Integrated Security=True;Connect Timeout=30;User Instance=True")
        Dim command2 As New SqlCommand(qs2, connection2)
        connection2.Open()
        Dim reader2 As SqlDataReader = command2.ExecuteReader()

        If reader2.HasRows Then
            reader2.Read()
            TextBox3.Text = reader2("Prodotti")
        End If
        'Label1.Text = "Pippo"
        'End If
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn As SqlConnection
        Dim cmd As SqlCommand
        Dim RecordsAffected As Integer
        Dim cmdString As String = "Update Anagrafica Set nome = '" & TextBox1.Text & "', tipoProdotto = " & DropDownList1.Text & " WHERE id = 1"
        conn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=" & pAssoluto & "\App_Data\" & nomeDb & ";Integrated Security=True;Connect Timeout=30;User Instance=True")
        cmd = New SqlCommand(cmdString, conn)
        conn.Open()

        RecordsAffected = cmd.ExecuteNonQuery()
        If (cmd.ExecuteNonQuery()) Then
            Response.Write("
 Dato MODIFICATO correttamente 
")
        Else
            Response.Write("
 ERRORE Sulla Mofifica 
")
        End If
        conn.Close()

    End Sub


End Class