Private Sub Form_Load()
 
  ' DLL initialisieren
  Handle = sevKTO_Init("Lizenz-Code")
 
  ' Pfad zu den BLZ-Daten
  DataPath = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir( _
    CurrentDb.Name)))
  If Right$(DataPath, 1) <> "\" Then DataPath = DataPath + "\"
  DataPath = DataPath + "..\"
  sevKTO_BLZSetPath DataPath
 
End Sub