Datagrid - Ausgabe bleibt leer

[BastiFantasti]

Ich übergebe Infos zum Datagrid bzw. ich versuche es...er gibt kein Fehler aus - mein Fenster bleibt schließlich nur weiss.
Hat jemand eine ahnung wie ich das machen könnte? (DataGrid1.DataSource = ds)

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://xxxxx:389/OU=xxxx,DC=xxxx-xxxx,DC=xxxx,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

                ' Load this data only once.

                DataGrid1.DataSource = CreateDataSource()

                DataGrid1.DataBind()

            End If

        End Sub


#Region "Web Form Designer generated code"
        Protected Overloads Overrides Sub OnInit(ByVal e As EventArgs)

            InitializeComponent()
            MyBase.OnInit(e)
        End Sub

        Public Sub InitializeComponent()
            Me.de = New System.DirectoryServices.DirectoryEntry
            Me.ds = New System.Data.DataSet
            Me.dv = New System.Data.DataView
            CType(Me.ds, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit()
            '
            'de
            '
            Me.de.AuthenticationType = System.DirectoryServices.AuthenticationTypes.ServerBind
            Me.de.Path = "LDAP://blndc003:389/OU=BLN,DC=HACH-LANGE,DC=EWQG,DC=COM"
            '
            'ds
            '
            Me.ds.DataSetName = "NewDataSet"
            Me.ds.Locale = New System.Globalization.CultureInfo("de-DE")
            '
            'dv
            '
            CType(Me.ds, System.ComponentModel.ISupportInitialize).EndInit()
            CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit()

        End Sub