[Resolvido]Timer x atualização

ola Pessoal

tem como criar temporizador para disparar uma atualização
exemplo um botao eu clico para executar a atualização

mas eu gostaria de de ter um relogio com a hora exemplo 16:25:45 esse fica rodando e outro fica a hora de disparar o comando
tipo as 16:45:00 ira disparar a rotina de atualização

seria mais ou menos isso

ola tenho esse codigo no botao

Private Sub BtnTodos_Click()
DoCmd.SetWarnings False

MsgBox "Preços de todos Produtos Serão Alterados conforme a Porcentagem Escolhida !!!", vbCritical, "Atenção"

DoCmd.RunSQL "UPDATE tbl_CadProd SET Tbl_CadProd.precovenda = [precovenda]* forms!frm_ListaProdutos!txtpreco +[precovenda];"

DoCmd.RunSQL "UPDATE tbl_cadProd set tbl_CadProd.DtAlteracao = forms!frm_ListaProdutos!txtdata ;"

DoCmd.RunSQL "UPDATE tbl_cadProd set tbl_CadProd.HoraAlt = forms!frm_ListaProdutos!txttime ;"


MsgBox "Preços alterados com sucesso!!!", vbInformation, "Obrigado"

Me.ListaProdutos.Requery

Me.txtPreco = ""

Me.txtPreco.SetFocus

ListaProdutos.BackColor = RGB(255, 255, 255)


DoCmd.SetWarnings True

esse codigo que quero executar depois de um certo tempo automatico

consegui com a dica de um colega
obrigado a todos



Me.txtData = Date
Me.txtTime = Time()


Static booExecutou As Boolean

   'atualizando a caixa com as horas
   Me!txtTimer1 = Time()
   
   If Me!txtTimer1 >= Me!txtTimer2 And booExecutou = False Then
       
     DoCmd.SetWarnings False

MsgBox "Preços de todos Produtos Serão Alterados conforme a Porcentagem Escolhida !!!", vbCritical, "Atenção"

DoCmd.RunSQL "UPDATE tbl_CadProd SET Tbl_CadProd.precovenda = [precovenda]* forms!frm_ListaProdutos!txtpreco +[precovenda];"

DoCmd.RunSQL "UPDATE  tbl_cadProd set tbl_CadProd.DtAlteracao = forms!frm_ListaProdutos!txtdata ;"

DoCmd.RunSQL "UPDATE  tbl_cadProd set tbl_CadProd.HoraAlt = forms!frm_ListaProdutos!txttime ;"


MsgBox "Preços alterados com sucesso!!!", vbInformation, "Obrigado"

Me.ListaProdutos.Requery

Me.txtPreco = ""

Me.txtPreco.SetFocus

ListaProdutos.BackColor = RGB(255, 255, 255)



DoCmd.SetWarnings True
       
       
       'MsgBox "olá"
       booExecutou = True
       Me.txtTimer2 = ""