Dim DataClass as clsDAO
 
Private Sub Form_Load()
 Set DataClass = New clsDAO [color=green]'Hier soll die Klasse clsDAO eine DB 
 ' im Hauptverzeichnis des Projekts (in dem sich o. g. Form befindet) mit dem 
 ' Namen "DataClass" erstellen
  '...
End Sub