Function mdb_lesen(Optional zugriff)
 
On Error GoTo Lesen_Fehler
 
'Abteilungen einlesen
With Env_Urlaub.rsAbteilung_lesen
'Bei Bedarf Verbindung herstellen
1: If .State = 0 Then .Open
'Bei Bedarf zum 1. Datensatz springen
2: If Not .BOF Then .MoveFirst
 
'Die Felder auf die benötigten Größen anpassen
3: ReDim Abteilungen(.RecordCount, .Fields.Count)
    'Zeilen einlesen
4:    For Vertikal = 0 To .RecordCount - 1
        'Spalten einlesen
5:        For Horizontal = 0 To .Fields.Count - 1
6:        Abteilungen(Vertikal, Horizontal) = .Fields(Horizontal)
7:        Next Horizontal
8:    .MoveNext
9:    Next Vertikal
10: .Close
End With
 
 
'Mitarbeiter_lesen
'Urlaubdaten_lesen
'Urlaubstyp_lesen
'Urlaubszuordnung_lesen
 
 
Exit Function
 
Lesen_Fehler:
Select Case Err.Number
 
Case 5:     'Datenbankverbindung schon geschlossen
            Resume Next
Case 94:    'Kein Eintrag im entsprechenden Tabellenfeld
            Resume Next
Case Else:  MsgBox "Fehler Nr.: " & Err.Number & " in Modul mdb_lesen in Zeile:" & _
  "" & Erl
            Resume Next
End Select
 
End Function

Hier muss ich mir noch etwas schlaues f?r suchen