Getting Printers from AD error "Unknown error (0x80005000)" on Fin

[Guest]

I'm getting the following error:
Unknown error (0x80005000)

It gives this error on the line "results = searcher.FindAll()"

-----code------
Dim rootentry As New
System.DirectoryServices.DirectoryEntry"LDAP://mydomain.com/", "user1",
"pss1", AuthenticationTypes.Secure)
Dim searcher As New System.DirectoryServices.DirectorySearcher(rootentry)
searcher.PageSize = 500
searcher.Filter = "(&(objectClass=PrintQueue)(serverName=" &
"printerserver1" & "))"
Dim results As DirectoryServices.SearchResultCollection
results = searcher.FindAll()
-----code-----

This code works in VB.net when i run it as a windows application.
Please help!