Datagrid an Dataview oder Dataset?

[BastiFantasti86]

Hallo zusammen!
Ich programmiere mit VB.NET 2003!
Ich möchte gerne Infos(user von einer Active Directory) zum Datagrid übergeben bzw. ich versuche es...er gibt kein Fehler aus - mein Fenster bleibt schließlich aber nur weiss.
Hat jemand eine ahnung wie ich das machen könnte? (DataGrid1.DataSource = ds)
Danke im Voraus!

Imports System
Imports System.Data
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.DirectoryServices

Namespace WebApplication1
    Public Class WebForm2
        Inherits System.Web.UI.Page
        Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
        Public de As DirectoryEntry
        Protected WithEvents dv As System.Data.DataView
        Public ds As DataSet

        Function CreateDataSource() As ICollection

            Dim dt As New DataTable

            Dim dr As DataRow

            dt.Columns.Add(New DataColumn("CommonName", GetType(String)))
            dt.Columns.Add(New DataColumn("Email Address", GetType(String)))


            Dim de As New DirectoryServices.DirectoryEntry("LDAP://blndc003:389/OU=BLN,DC=HACH-LANGE,DC=EWQG,DC=COM")

            Dim rootSearch As New DirectorySearcher(de)

            Dim SearchResult As SearchResult

            Dim results As SearchResultCollection

            rootSearch.PropertiesToLoad.AddRange(New String() {"cn", "mail"})

            rootSearch.Filter = "(&(objectCategory=Person)(objectClass=user))"

            results = rootSearch.FindAll

            For Each SearchResult In results

                Try

                    dr = dt.NewRow()

                    If SearchResult.Properties.Contains("CN") Then
                        dr(0) = SearchResult.Properties("CN").Item(0)

                    End If

                    If SearchResult.Properties.Contains("mail") Then
                        dr(1) = SearchResult.Properties("mail").Item(0)

                    Else

                        dr(1) = "No E-Mail Address"

                    End If


                    dt.Rows.Add(dr)

                Catch ex As Exception

                    Dim debug As String = ex.Message

                End Try

            Next

            Dim dv As New DataView(dt)

            Return dv

        End Function

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
            If Not IsPostBack Then
                DataGrid1.DataSource = ds
                DataGrid1.DataBind()
            End If
        End Sub