cara no DataEnvironment  acho que ele não lê ini não vc tem um modelo como devo criar o arquivo ini ?

O melhor sistema é voce nomear uma variável String pública e colocar o caminho do BD quando acessar o aplicativo lê o arquivo .ini e fica visivel em todo o programa:

 

Em um módulo:

Declarações:

Public sCAMINHO As String

Declare Function GetPrivateProfileString Lib "kernel32" Alias _
  "GetPrivateProfileStringA" (ByVal lApplicationName _
  As String, ByVal lpKeyName As Any, ByVal lpDefault _
  As String, ByVal lpReturnedString As String, ByVal _
  nSize As Long, ByVal lpFileName As String) As Long

 

Função:

Public Function sGetINI(sINIFILE As String, sSection As String, sKey _
 As String, sDefault As String) As String
 Dim sTEMP As String * 256
 Dim nLENGTH As Integer
 sTEMP = Space$(256)
 nLENGTH = GetPrivateProfileString(sSection, sKey, sDefault, sTEMP, _
 256, sINIFILE)
 sGetINI = Left$(sTEMP, nLENGTH)
End Function

 

No formulário inicial:

Private Sub Form_Load()

Dim sINIFILE As String

sINIFILE = App.Path & "NOMEDOARQUIVO.INI"
 If Dir$(sINIFILE) = "" Then
  Beep
  MsgBox("Verificar Arquivo de Configurações" & Chr(13) & sINIFILE, vbCritical + vbOKOnly, "Erro")
  Unload Me
  End
 End If

sCAMINHO = sGetINI(sINIFILE, "UserDrive", "Drive", "?")
 If sCAMINHO = "?" Then
  Beep
  MsgBox("Caminho do BD Não Encontrado (" & sCAMINHO & ")", vbCritical + vbOKOnly, "Erro")
  Unload Me
  End
 End If

End Sub

 

Exemplo de arquivo .ini

 

[UserDrive]
Drive=C:PASTANOMEDOBD.EXT

 

Aí está, pode ser colocado nas máquinas, junto com o executável, querendo alterar a pasta do BD, basta alterar no arquivo .ini.

Para abrir seu BD, basta sua conexão e colocar: sCAMINHO

 

vlu//