Imports System.Data.SqlClient
Partial Class Pag10
    Inherits System.Web.UI.Page
    Dim connxx As SqlConnection
    Dim cmdxxx As SqlCommand

    Protected Sub BtnExecute_Click(sender As Object, e As EventArgs) Handles BtnExecute.Click

        connxx = New SqlConnection("Data Source=www.xxxxxxxxx.it;Initial Catalog=NomeDB;User ID=NomeUtente;Password=ValorePass")

        ' La stringa SQL di base        UPDATE dbo.LA SET dbo.LA.LANote = 'nnn' WHERE dbo.LA.LAId = 37
        cmdxxx = New SqlCommand("UPDATE LA SET LANote = '" + TextBoxNote.Text + "' WHERE LAId = " + TextBoxIdxx.Text + "", connxx)

        connxx.Open()
        cmdxxx.ExecuteNonQuery()
        connxx.Close()

        MsgBox("Fatto")

    End Sub
End Class