Public Sub SaveMyData(ByVal userId As Integer, ByVal FileName As String, ByVal Xml As XmlDocument)

        Dim Cmd As New SqlCommand()
        Dim SQL As String

        Try
            'Imposto la connessione attiva sull'oggetto Command
            Cmd.Connection = Connection

            'Svuoto la collection dei parametri
            Cmd.Parameters.Clear()

            SQL = "INSERT INTO NomeTabella (userid, CompanyID, FileName, xmlDati) " & _
                              "VALUES (@userid, @CompanyID, @FileName, @xmlDati)"
            Cmd.Parameters.AddWithValue("@userid", userId)
            Cmd.Parameters.AddWithValue("@CompanyID", HttpSession("CompanyID"))
            Cmd.Parameters.AddWithValue("@FileName", FileName)
            Cmd.Parameters.AddWithValue("@xmlDati", Xml.OuterXml)

            'Setto il CommandText
            Cmd.CommandText = SQL

            'Eseguo la query
            Cmd.ExecuteNonQuery()

        Catch ex As SqlException
            Debug.WriteLine(ex.ToString())

        Catch ex As Exception
            Debug.WriteLine(ex.ToString())
        Finally
            Cmd.Dispose()
        End Try
    End Sub