Public Sub InserisciTabellaIscrizione()

        objCommand.Connection = objConnection
        objCommand.CommandText = "INSERT INTO Iscrizione (NumeroContratto, DataIscrizione, ScadenzaIscrizione, GiornoIscrizione, FigliIscritti, " & _
            "Iscrizione, Retta, Abbonamento, VideoSorveglianza, ScontoIscrizione, ScontoRetta, Sabato, Mezzora) VALUES (@NumeroContratto, @DataIscrizione, " & _
            "@ScadenzaIscrizione, @GiornoIscrizione, @FigliIscritti, @Iscrizione, @Retta, @Abbonamento, @VideoSorveglianza, @ScontoIscrizione, @ScontoRetta, @Sabato, @Mezzora)"

        With objCommand.Parameters

            .Add("NumeroContratto", OleDbType.BigInt).Value = frmIscrizione.cmbNumeroContratto.Text
            If frmIscrizione.mktInizioIscrizione.Text.Trim = "" Then
                .Add("DataIscrizione", OleDbType.Date).Value = DBNull.Value
            Else
                frmIscrizione.mktInizioIscrizione.Mask = "00/00/0000"
                .Add("DataIscrizione", OleDbType.Date).Value = frmIscrizione.mktInizioIscrizione.Text
            End If
            If frmIscrizione.mktScadenzaIscrizione.Text.Trim = "" Then
                .Add("ScadenzaIscrizione", OleDbType.Date).Value = DBNull.Value
            Else
                frmIscrizione.mktInizioIscrizione.Mask = "00/00/0000"
                .Add("ScadenzaIscrizione", OleDbType.Date).Value = frmIscrizione.mktScadenzaIscrizione.Text
            End If
            .Add("GiornoIscrizione", OleDbType.Date).Value = Now
            .Add("FigliIscritti", OleDbType.Integer).Value = frmIscrizione.txtFigliIscritti.Text
            .Add("Iscrizione", OleDbType.Char, 100).Value = frmIscrizione.cmbIscrizione.Text
            .Add("Retta", OleDbType.Char, 100).Value = frmIscrizione.cmbRetta.Text
            If frmIscrizione.chkAbbonamento.CheckState = CheckState.Checked Then
                .Add("Abbonamento", OleDbType.TinyInt).Value = 1
            Else
                .Add("Abbonamento", OleDbType.TinyInt).Value = 0
            End If
            If frmIscrizione.chkVideoSorveglianza.CheckState = CheckState.Checked Then
                .Add("VideoSorveglianza", OleDbType.TinyInt).Value = 1
            Else
                .Add("VideoSorveglianza", OleDbType.TinyInt).Value = 0
            End If
            .Add("ScontoIscrizione", OleDbType.Currency).Value = frmIscrizione.txtScontoIscrizione.Text
            .Add("ScontoRetta", OleDbType.Currency).Value = frmIscrizione.txtScontoRetta.Text
            .Add("Sabato", OleDbType.Char, 20).Value = frmIscrizione.txtSabato.Text
            If frmIscrizione.chkMezzora.CheckState = CheckState.Checked Then
                .Add("Mezzora", OleDbType.TinyInt).Value = 1
            Else
                .Add("Mezzora", OleDbType.TinyInt).Value = 0
            End If

        End With

    End Sub