dim rc as recordset
dim venc as date
set rc=base.openrecordset("Parcelas")
venc=cdate(vencimento.text)
rc.addnew
rc("valor")=Valor.text
rc("Vencimento")=venc
rc.update
for t=1 to val(parcela.text)-1
rc.addnew
rc("valor")=Valor.text
venc=venc+30
rc("vencimento")=venc
rc.update
next t
Esse é um exemplo simples de como voce poderia fazer, estou levando em consideração que vc tenha um campo no formulario onde seja digitado o valor da parcela (valor.text), um campo com o vencimento inicial (vencimento.text) e um campo com as quantidades de parcelas (parcelas.text), e que sempre a variação de datas seja 30 dias
