Manejo de meses de 30 dias

Buenas noches :
Para esto puede utilizar la función DateAdd de la siguiente forma :
Dim Fecfac as date
Dim Fecvto as date
Fecvto = Format(DateAdd("d", 30, Fecfac), "yyyy/mm/dd")
Con lo anterior si una factura se expide el 1 de marzo su vencimiento sería el día 31 de marzo.
Suerte !

Quisera mostrarte la rutina que estoy tratando de implementar:
Private Sub Comando34_Click()
'Declara variables
Dim dbs
Dim rst
Dim meses, Cred, cuot, saldo, contador, saldocre
'Establece las tablas a trabajar
Set dbs = CodeDb
Set rst1 = dbs.OpenRecordset("Plan de Pagos")
Set rst2 = dbs.OpenRecordset("Contratos")
'Define las variables
meses = rst2("termino")
contador = 3
' Agrega un mes a la fecha actual
fecha = DateAdd("m", 1, Date)
'Inicia bucle
Do While contador <= meses 'Mientras no se cumplan los plazos
'Agrega nuevo registro
rst1.AddNew
'Coloca valores en los campos
'rst("Numeros") = Me.numero
'rst("Credto total") = Me.Credito
'rst("mes") = contador
'rst("cuota") = cuot
rst1("Fecha de Pago") = fecha
rst1("Nro Contrato") = rst2("Nro Contrato")
'Actualiza recordset
rst1.Update
'Cred = Cred - cuot
contador = contador + 1
fecha = fecha + 30
Loop
'refrezca el subformulario para que se vean los ingresos
DoCmd.RunCommand acCmdRemoveFilterSort
' estima error
On Error Resume Next
rst1.Close: Set rst = Nothing
dbs.Close: Set dbs = Nothing
End Sub
 
EL PROBLEMA ESTA EN QUE CUANDO SUMO UN MES, LA RUTINA TIENE EN CUENTA LOS DIAS REALES DEL MES Y NECESITO QUE LOS DIAS DE VENCIMIENTO NO ME CAMBIEN
 
 

Muchisimas gracias, con tu ayuda pude solucionar el problema. Definitivamente gracias