substituição de programa

Gostaria de saber se alguém pode me ajudar, dando uma ideia !
Tenho um programa na loja do meu filho e a substituição de versão às vezes causa problema, assim pensei em fazer a substituição pela nova versão na abertura do programa. A substituição da base de dados funciona direito mas a do programa dá problema. pensei em criar uma .exe mas não sei como fazer.

as linhas de programação que fiz são as seguintes (a que dá problema na substituição do programa), no formulário que inicializa o programa :

Private Sub Form_Load()
a = ""
a = Dir("c:\thinkprograma\thinkdadosnew.mdb")
If a <> "" Then
Name "c:\thinkprograma\thinkdados.mdb" As "c:\thinkprograma\thinkdados - " & Year(Date) & Month(Date) & Day(Date) & ".mdb"
Name "c:\thinkprograma\thinkdadosnew.mdb" As "c:\thinkprograma\thinkdados.mdb"
MsgBox "Uma nova versão do banco de dados foi instalada"
End If
a = ""
a = Dir("c:\thinkprograma\thinkprognew.accdb")
If a <> "" Then

Name "c:\thinkprograma\thinkprog.accdb" As "c:\thinkprograma\thinkprog - " & Year(Date) & Month(Date) & Day(Date) & ".accdb"
Name "c:\thinkprograma\thinkprognew.accdb" As "c:\thinkprograma\thinkprog.accdb"
MsgBox "Uma nova versão do programa foi instalada verifique se o atalho está compativel"
End If

daí seguem as outras intruções normais

Grato pela ajuda !

Boa tarde.

Tenho um sistema que verifica a versão no servidor de rede e se for diferente atualiza sozinho, caso contrário abre a tela de login.

Segue anexo.

Precisa ajustar pro seu sistema.

Se tiver dúvidas, só perguntar.

Abraço