Como adicionar dias a uma determinada data

[aureo2006 1]

Eu tenho uma textbox (data_emprestimo)que armazena a data atual, através de uma variável date. Possuo outra textbox(previsao_retorno), que gostaria fosse atualizada, após o evento lostfocus da textbox data_emprestimo) para uma data 15 dias superior a data que for informada na textbox data_empréstimo. Estou encontrando dificuldades para fazer isso. Alguem tem uma fórmula que possa me ajudar?

[LiPe 0]

respondendo a sua duvidaDateAdd("tipo",valor a ser somado ou subtraido, data que sera alterada)você pode adicionar mes também, enfim...x = DateAdd("d", 15, Date)Label1.Caption = x

[aureo2006 1]

Deu tudo certo. Valeu. Obrigado.