Guru do Excel e Power BI

Olá amigo
Você pode por favor me ajudar nisso?

Microsoft Excel VBA


Na UserForm1 eu tenho uma MultiPage.
Page 1 = CustomerInformataionPage, contém:
Caixa de texto com dados do cliente e evento.
               Caixa de combinação com tipo de serviço.
               DTPickerStart e DTPickerEnd.
               ListViewSearch
========= XXX =========
Page2 = InvoiceDescription, contendo:
6 Caixas de Texto para descrever o tipo de trabalho realizado.
1 caixa de texto para comentários.
Botões:

Salvar / Novo - UpDate - ClearForm - Search.

O código acima envia as informações para a planilha.
============== xxx ===========
Ao fazer a pesquisa com o CURSOR na Page1 = CustomerInformataionPage
as informações aparecem no listView e com um duplo clique na linha desejada
todos os objetos estão preenchidos corretamente.

ATÉ AQUI FUNCIONA PERFEITAMENTE.

============== xxx ===========
                   Começo do problema.

1. Ao fazer a alteração na Page1 = CustomerInformataionPage
e sem sair da Page1. Quando clico no botão UpDate, o
DTPickerStart e DTPickerEnd, altera para a data atual.

2. Clicando na Page2 = InvoiceDescription ou em qualquer outra Page
DTPickerStart e DTPickerEnd, altera a data para 30/12/1899

muito obrigado pelo seu tempo.