Dim strSql As String = "INSERT INTO Scadenziario (TipoDoc, Numero, Anno, DatScad, ImpScad) VALUES (@TipoDoc, @Numero, @Anno, @DatScad, @ImpScad)"
            Dim cmd = New OleDbCommand(strSql, MyDB)
            cmd.Parameters.Add("@TipoDoc", OleDbType.VarChar).Value = Scadenze(1)
            cmd.Parameters.Add("@Numero", OleDbType.BigInt).Value = Val(Scadenze(2))
            cmd.Parameters.Add("@Anno", OleDbType.VarChar).Value = Year(DataScad)
            cmd.Parameters.Add("@DatScad", OleDbType.Date).Value = DataScad
            cmd.Parameters.Add("@ImpScad", OleDbType.Double).Value = ImpRata + DiffImporti
            cmd.ExecuteNonQuery()