Error 3706 with "Active Directory Provider"

[wdhough]

Hi There I have the following piece of code

Dim conn As New ADODB.Connection
Dim command As New ADODB.command
Dim recordSet As ADODB.recordSet

'set the provider of the data store to Active Directory
conn.Provider = "ADsDSOObject"

'set up the connection string making sure to pass in the username and password
conn.Open "Active Directory Provider", AdminUserName, AdminPassword

On the last line, where I attempt to open the connection I get the following
error.
"Error 3706 Provider cannot be found. It may not be properly installed"

This code works fine on my development machine but not on the one of the
machines I am trying to test it on. I have looked around on the net and seen
a lot of stuff about re-installing MDAC. I have tried this and no change and
I have checked that the Data Objects Library 2.8 is on the troublesome
machine as well but still the same thing.

Anyone know what I am missing. Incidently I am using this to check a users
pwdlastset attribute in Active Directory so if there is a better way of doing
this i.e without ADODB then that may also be of help

Thanks in advance

Will

[Ralph]

"wdhough" <wdh...@discussions.microsoft.com> wrote in message
news:129BD1A4-C8C7-4124...@microsoft.com...

ADSDSOObject provide is implemented by the "activeds.dll", the "Active
Directory Service Interface (ADSI) Core" component.
Check to see that the dll is present and is registered.

-ralph