What's wrong with this:

[Derek Martin]

This code gives a 401 Access Denied, but I am certain the username and
password are correct:

Dim cache As CredentialCache = New CredentialCache
Dim username As String = "myuser"
Dim password As String = "mypassword"
Dim domain As String = "mydomain"
Dim uri As New Uri(myStsAd.Url)
cache.Add(uri, "Negotiate", New NetworkCredential(username, password,
domain))
myStsAd.Credentials = cache
....
Dim myNode As XmlNode = myStsAd.Query(myRequest)

Got example from Option 2 on this page:
http://support.microsoft.com/default...b;en-us;811318

Thanks!
Derek