using external file to provide parameters

[peet]

You can use inifiles :

Option Explicit
Private Declare Function GetPrivateProfileString _
Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal _
lpApplicationName As String, ByVal lpKeyName As String, _
ByVal lpDefault As String, ByVal lpReturnedString As _
String, ByVal nSize As Long, ByVal lpFileName As String) As _
Long
 
Private 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
 
 
 
Private Function ReadINI(strsection As String, strkey As String, strfullpath As String) As String
   Dim strbuffer As String
   Let strbuffer$ = String$(750, Chr$(0&))
   Let ReadINI$ = Left$(strbuffer$, GetPrivateProfileString(strsection$, ByVal LCase$(strkey$), "", strbuffer, Len(strbuffer), strfullpath$))
End Function
 
Private Sub WriteINI(strsection As String, strkey As String, strkeyvalue As String, strfullpath As String)
    Call WritePrivateProfileString(strsection$, UCase$(strkey$), strkeyvalue$, strfullpath$)
End Sub
 
Private Sub Command1_Click()
    WriteINI "DBParam", "DBName", "C:\myapp\db\mydb.mdb", "C:\TEST.INI"
    WriteINI "Temp", "TMPPath", "C:\myapp\tmp", "C:\TEST.INI"
    
End Sub
 
Private Sub Command2_Click()
    MsgBox ReadINI("DBParam", "DBName", "C:\TEST.INI")
    MsgBox ReadINI("Temp", "TMPPath", "C:\TEST.INI")
End Sub

or u could use the registry

Private Sub Command1_Click()
    SaveSetting App.EXEName, "Settings", "DBName", "C:\myapp\db\mydb.mdb"
    SaveSetting App.EXEName, "Settings", "TMPPath", "C:\myapp\tmp"
End Sub
 
Private Sub Command2_Click()
    MsgBox GetSetting(App.EXEName, "Settings", "DBName", "C:\myapp\db\mydb.mdb")
    MsgBox GetSetting(App.EXEName, "Settings", "TMPPath", "C:\myapp\tmp")
End Sub