Conexão Com Active Directory

[Anderson Fernandes]

Eu concegui se conectar ao AD, mas não sei quais tabelas existem para que eu possa fazer o SELECT

aqui ta o script para se conectar ao AD (Active Directory)

é necessario fazer referencia ao Microsoft ActiveX 2.0

Dim DB As New Connection
Dim RS As New Recordset

Private Sub Command1_Click()
    DB.Open "Provider=ADSDSOObject;"
    MsgBox DB.State
End Sub

a msgbox até retorna o valor 1 ou seja esta conectado e para abrir o RS estou tentando isso

RS.Open "SELECT * From 'LDAP://DC=microsoft, DC=COM'", DB, 1, 3

no lugar de microsoft já tentei colocar o dominio da empresa(lark.com.br), o nome do servidor(lark_srv.lark.com.br) e o nome de uma pasta que tem usuarios mas da erro dizendo TABELA INEXISTENTE.

não tenho certeza se o select esta correto ('LDAP;//DC=...).

"QUERO SABER COMO FAÇO O SELECT CORRETO"

se alguém poder me dar uma ajuda eu agradeço!