mostrar en Gridview resultados de consulta SQL al Directorio Activ

Hola, quisiera compartir con ustedes la siguiente inquietud

en mi compañia estoy implementando un directorio telefonico haciendo una
consulta al Active directory. buscando por ahi encontre que puedo hacer
consultas SQL a este por medio de ADODB. Mi problema consiste en que no
puedo
cargar los datos extraidos que almaceno en un recordset en un gridview. He
intentado convertirlos e un Dataset y apesar de que esto es exitoso no me
carga la data en el gridview.

El error que me devuelve es:

"System.Web.HttpException: The data source for GridView with id
'GridView1'
did not have any properties or attributes from which to generate columns.
Ensure that your data source has content"

el codigo que estoy utilizando es:

Try

Dim objConnection As ADODB.Connection
Dim objCommand As ADODB.Command
Dim objRecordSet As Recordset
Dim daLDAP As New OleDbDataAdapter()
Dim dsLDAP As New DataSet()

objConnection = CreateObject("ADODB.Connection")
objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open("Active Directory Provider")
objCommand.ActiveConnection = objConnection
objConnection = CreateObject("ADODB.Connection")
objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"

objConnection.Open("Active Directory Provider")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = "SELECT Name, Department,
telephoneNumber FROM 'LDAP://dc=compania,dc=com,dc=co' WHERE
objectCategory='user'"
objRecordSet = objCommand.Execute

daLDAP.Fill(dsLDAP, objRecordSet, "cLDAP")

GridView1.DataSource = dsLDAP
GridView1.DataBind()


Catch ex As Exception
lola.Text = ex.ToString()

End Try"

Gracias por sus respuestas