Torna al Thread
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()