como disse o colega LCRAMOS o ideal é ustilizar um arquivo INI
Primeiro crie sua rede, compartilhe uma pasta, quando colocar o computador que vai armazenar o banco de dados, permita que outros usuários alterem os arquivos, da pasta compartilhada.
este é o primeiro Passo
agora no seu módulo cole o seguinte codigo já alterando sua sub.
'
' funções para escrever e ler arquivos ini
'
Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName _
As String) As Long
'
Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString _
As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'
Public Ret As String
'
' sub função para gravar um arquivo ini
'
Public Sub WriteINI(FileName As String, Section As String, Key As String, Text As String)
WritePrivateProfileString Section, Key, Text, FileName
End Sub
'
' Função para ler um arquivo ini
'
Public Function ReadINI(FileName As String, Section As String, Key As String)
Ret = Space$(255)
retLen = GetPrivateProfileString(Section, Key, "", Ret, Len(Ret), FileName)
Ret = Left$(Ret, retLen)
ReadINI = Ret
End Function
'
' Alteração da sua Sub
'
Sub Conectar()
Dim Caminho As String
Caminho = ReadINI(App.Path & "\config.ini", "programa", "caminho")
Set dbM = CreateObject("ADODB.Connection")
dbM.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Caminho & ";Jet " & "OLEDB:Database Password=x;"
End Sub
Agora basta você abrir o bloco de notas e colar o seguinte
[programa]
caminho=\\Nome_da_rede\pc_servidor\dbMed.mdb
Salve na pasta do programa com o nome Config.ini
lembrando que o caminho será deacordo com sua rede, para descobrir o caminho de uma forma fácil basta ir em meus locais de rede e ir selecionado até achar a pasta onde está o banco de dados.
o caminho da rede começará sempre da forma descrita acima com duas barras invertidas
\\
a vantagem destaa forma é que mesmo depois do programa compilado você sempre poderá alterar o caminho no config.ini dos pc clientes.
veja se consegue.
