Public Class Global
 
  Public Shared appPath As String = Application.StartupPath
 
  ' zunächst wird die lokale DB gesucht. Hier steht der Verbindungs-String zur 
  ' MasterDB (die u.U. auf dem Netzwerk vorhanden ist)
  Public Shared gc_Connect_local As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & appPath & "\Data\HRControllocal.mdb"
  Public Shared gc_Connect_local2 As String = _
  "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & appPath & "\Data\tmp.mdb"
 
  Public Shared con_local As System.Data.OleDb.OleDbConnection = New _
    System.Data.OleDb.OleDbConnection(gc_Connect_local)
  Public gc_Connect As String
  Public Shared con As System.Data.OleDb.OleDbConnection
  Public Shared DBMasterName As String = "HRControlMaster.mdb"
 
  Public Sub setMasterDBconn(ByRef location As String)
 
    ' mit dieser Info gehen wir dann auf die MasterDB und stellen eine public 
    ' Connection zur Verfügung
    gc_Connect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & location
    con = New System.Data.OleDb.OleDbConnection(gc_Connect)
 
  End Sub
 
End Class

Sector Twelve, or to Infinity and Beyond, whichever comes first.!