Gostaria de saber se é possível fazer o seguinte:

 

uso este código para conexão com o BD:

 

Private Sub Timer1_Timer()

On Error GoTo errconexao
cnn.ConnectionString = "provider = microsoft.jet.oledb.4.0;" & _
"data Source = " & App.Path & "pataiba.mdb;"
cnn.CursorLocation = adUseClient
cnn.Open
Unload Me
Frm_login.Show
Exit Sub

errconexao:
With Err
If .Number <> 0 Then
MsgBox " Houve um erro na conexão com o banco de dados." & _
vbCrLf & " O sistema será encerrado.", vbCritical + vbOKOnly + vbApplicationModal, "Erro na conexão"
.Number = 0
Set cnn = Nothing
End
End If
End With

End Sub

vejam que utilizo o app.path para quando da instalação o banco ser encontrado sem problemas certo? mas, quando eu crio um programa para rodar em rede, no lugar do app.path eu ponho o caminho da pasta publica onde estará o BD, exemplo U:sistemaspataiba.mdb, ou seja, a pasta que todos os micros acessam e sendo assim o banco será usado por todos os micros da empresa e as alterações, inclusões...etc feitas em um micro estarão disponiveis para todos, ou seja um unico banco de dados para todos os micros (coisa que quando se usa o app.path cada micro fica com um BD separado)...agora minha pergunta.

 

Quando eu sei que a pasta publica existe fica fácil, pois já ponho o caminho correto do BD, porém, no momento estou precisando mandar meu programa para outra empresa, ou seja, o caminho da pasta publica será com certeza diferente, então, como fazer para alterar este caminho no momento da instalação do programa ? sendo que isto será feito pelo cliente, antes de clicar no SETUP, pois irei mandar o CD com o instalador.

 

Obs: crio o instalador com o Package and Deploy Wizard

 

Pensei em criar uma variavel onde o caminho ficaria num arquivo TXT então antes de instalar a pessoa poderia colocar o caminho do BD neste TXT.

 

Agradeço desde já a atenção de todos ao meu problema