VS2022 Errors - BC40056 - System.DirectoryServices doesn't contain a public member

[data1025]

HI VB Experts,

My web application is working, however, when I open it in Visual Studio 2022, I get the error

Warning BC40056 Namespace or type specified in the Imports 'System.DirectoryServices' doesn't contain any public member or cannot be found. Make sure the namespace or the type is defined and contains at least one public member. Make sure the imported element name doesn't use any aliases.

I have checked references and this is installed.
I looked at my header in the vb file and Imports System.DirectoryServices is listed but grayed out saying the import is not necessary.

Use of this looks like this:

    Public Sub PopAD(ByVal UsrName As String)
        Dim oroot As DirectoryServices.DirectoryEntry = New DirectoryServices.DirectoryEntry("LDAP://x.com")
        Dim osearcher As DirectoryServices.DirectorySearcher = New DirectoryServices.DirectorySearcher(oroot)
        Dim oresult As DirectoryServices.SearchResultCollection
        Dim result As DirectoryServices.SearchResult = Nothing

Also, I posted a few pictures, which may help solve the issue?
1. What does it mean when an aspx is "not available"
2. Why do my files show as a name with a prefix 2_ or 3_ (different each time I load VB) rather than the PROJECT name like Helpdesk? This is in the errors window.

I've done a Build, Rebuild, and Clean to no avail. No errors when performing any of these, and again, the web app works, just spewing all of these errors in Studio.

[techgnome]

If you import the namespace, it's not necessary to use the namespace in the types....
So this

Dim oroot As DirectoryServices.DirectoryEntry

Should be

Dim oroot As DirectoryEntry

Or... you simply import System... which feels excessive. Or don't use an import and use the fully qualified name as you currently are (but may have to add System. to the front of it.)


-tg

[data1025]

Hi TG,

I removed the namespace from types so:

    Public Sub PopAD(ByVal UsrName As String)
        Dim oroot As DirectoryEntry = New DirectoryEntry("LDAP://x.com")
        Dim osearcher As DirectorySearcher = New DirectorySearcher(oroot)
        Dim oresult As SearchResultCollection
        Dim result As SearchResult = Nothing

but the error persists after rebuild/clean and closing VS and re-opening the project.

Any other ideas?