Dim oRs As DAO.Recordset
Dim oDB As DAO.Database
Dim Kunden_DB
'_________________________________________________
 
Private Sub Form_Load()
 
' ...
 
' Ini Datei lesen im Abschnitt "Kunden" Datenbank an der Stelle "Daten" auslesen
Kunden_DB = GetIniString("Kunden", "Daten", ja, (App.Path & "\" & App.EXEName & _
  ".ini"))
 
' .... weitere Code
 
' Recordset und Datenbank öffnen
 
' Ist diese Zeile hier korrekt vom Zugriff (Schreibgeschützt) ?
Set oDB = Workspaces(0).OpenDatabase(Kunden_DB, False, True)
 
' .... weitere Code
 
End Sub