Dim m_conn As SqlConnection
            Dim punti As String = TextBoxPuntiDaAssegnare.Text
            m_conn = New SqlConnection(Data Source=mioserver\miaistanza;Initial Catalog=miodb;User ID=mioutente;Password=miapassword")
            Dim m_cmd As SqlCommand
            Dim m_sql As String
            m_sql = "UPDATE FidelityCard set R_Punti=1 WHERE ID_FCard=1"
            m_cmd = New SqlCommand
            m_cmd.Connection = m_conn
            m_cmd.CommandType = CommandType.Text
            m_cmd.CommandText = m_sql
            m_conn.Open()
            m_cmd.ExecuteNonQuery()
            m_conn.Close()