Private Function DB(ByVal SQL As String)
  'Datenbank öffnen
  Dim DB As Database
  Dim dbFile As String
 
  dbFile = App.Path + "\DMS.MDB"
  Set DB = Workspaces(0).OpenDatabase(dbFile, False, False)
 
  'Recordset mit SQL-Abfrage
  Dim rs As Recordset
 
  Set rs = DB.OpenRecordset(SQL)
 
  'Anzeige des Ergebnisses in Listbox, einmaliger Durchlauf des Recordset
  Set rs = DB.OpenRecordset(SQL, dbOpenForwardOnly)
 
End Function