QueryAccess - löst Fehlermeldung aus

    Hallo,


    ich möchte auf dem Server testen, ob eine DB existiert und ob der angemeldete User die Rechte zum öffnen hat.
    Dazu wollte ich per QueryAccess prüfen ob Rechte > als ACL_Reader sind.


    Durch die Zeile Set CheckACLDB wird aber direkt im Client die Fehlermeldung Benutz ... kann Datenbank ... nicht öffnen erzeugt.
    Siehe Screenshot.


    Was mache ich falsch?



    Code
    Dim CheckACLDB As NotesDatabase
	Set CheckACLDB = New NotesDatabase( Servername, "database.nsf" )
	Dim level As Integer
	level = CheckACLDB.QueryAccess( s.CommonUserName )
	MsgBox level



    Grüße

    Hallo,


    habe ich auch probiert... Dann kommt der Fehler bereits beim Dim


    der betreffende User hat Keinen Zugriff, also No Access ...


    Code
    Dim CheckACLDB As New NotesDatabase( Servername, database.nsf" )
    Dim level As Integer
    If Not CheckACLDB.Isopen Then
        Print "[DM] User has no access to DM Database on Server " + Servername
        Print "[DM] Installation abort!"
        GoTo DMInstallEnd
    End If