<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="VB" runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
  Dim cnn As New SQLConnection("server=DBSERVER;User id=USER;password=PASSWORD;database=DB")
  Dim UpdateCommand As SqlCommand = New SqlCommand()
  UpdateCommand.Connection = cnn
  Dim sql As String
  sql = "Update TABELLA Set CAMPO = 'VALORE' WHERE ID = ID"
  UpdateCommand.CommandText = sql
  Try
    cnn.Open()
    UpdateCommand.ExecuteNonQuery()
  Catch ex As Exception
    Response.Write(ex.ToString())
  Finally
    cnn.Close()
  End Try
End sub
</script>