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, 5)
            cmd.Parameters.Add("@Numero", OleDbType.BigInt)
            cmd.Parameters.Add("@Anno", OleDbType.VarChar, 4)
            cmd.Parameters.Add("@DatScad", OleDbType.Date)
            cmd.Parameters.Add("@ImpScad", OleDbType.Double)
            cmd.Parameters.AddWithValue("@TipoDoc", Scadenze(1))
            cmd.Parameters.AddWithValue("@Numero", Val(Scadenze(2)))
            cmd.Parameters.AddWithValue("@Anno", Year(DataScad))
            cmd.Parameters.AddWithValue("@DatScad", DataScad)
            cmd.Parameters.AddWithValue("@ImpScad", ImpRata + DiffImporti)
            cmd.ExecuteNonQuery()