Get the DB control from the Server Folders

  Dim dbdir As New NotesDbDirectory(pdoc.pab_server(0))
    Dim db As NotesDatabase
    Set db=dbdir.Getfirstdatabase(DATABASE)
   
    Do Until DB Is Nothing
        Dim item As NotesItem
        Set item=pdoc.Getfirstitem("strFolder")
       
        ForAll x In item.Values

            If Left(db.FilePath,Len(x))= x Then
                Dim tempdb As NotesDatabase
                Set tempdb=session.Getdatabase(pdoc.pab_server(0),db.FilePath)