Dim DBPfad As String
 
DBPfad = "C:\DB.accdb"
 
With cnnAcc
    .ConnectionString = "PROVIDER=Microsoft.ACE.OLEDB.12.0; Data Source=" & _
      DBPfad & "; Mode=Read;Jet OLEDB:Database Password = " & Passwort
    .Open()
End With

 
Dim strRetString As String
strRetString = Space(255)
 
GetPrivateProfileString("Pfade", "Datenbank", "C:\DB.accdb", strRetString, Len( _
  strRetString), Application.StartupPath & "\config.ini")
DBPfad = strRetString.Trim
strRetString = Space(255)