Protected Sub Button1_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        Dim ADS_SECURE_AUTHENTICATION = 1
        Dim rootDSE As Object
        Dim strFQDN As Object
        Dim strADSPAth As String
        Dim strAltUser As String
        Dim strAltPassword As String
        Dim objNS As Object
        Dim objOU As Object
        Dim obj As Object
 
 
        rootDSE = GetObject("LDAP://****/rootDSE")
        strFQDN = rootDSE.Get("dnsHostName")
 
        strADSPAth = "LDAP://" & strFQDN & "/" & _
          "OU=****,OU=****Groups,OU=****,DC=****,DC=****"
        strAltUser = "****"
        strAltPassword = "****"
 
 
        objNS = GetObject("LDAP:")
        objOU = objNS.OpenDSObject(strADSPAth, strAltUser, strAltPassword, _
          ADS_SECURE_AUTHENTICATION)
 
        Dim Ausgabe = ""
        Dim i = 0
        Dim Anzahl As String
 
 
        Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=AD.mdb"
 
        Dim con As New Data.OleDb.OleDbConnection
 
        Dim DS As New Data.DataSet
 
        con.ConnectionString = strCon
 
        Dim sqladapter As Data.OleDb.OleDbDataAdapter
 
        sqladapter = New Data.OleDb.OleDbDataAdapter("Select * from AD", con)
 
        con.Open()
 
        sqladapter.Fill(DS)
 
        MsgBox("Verbindung erfolgreich hergestellt")
 
 
        For Each obj In objOU
 
            i = i + 1
            Anzahl = i
            Ausgabe = Ausgabe & vbCr & obj.Name & vbCr
            'Me.TextBox1.Text = Ausgabe
            'MsgBox(obj.Name)
 
 
        Next
 
        Me.Label1.Text = vbCr & Ausgabe
        Me.TextBox1.Text = Anzahl
 
        Dim sqlAdapter2 = New Data.OleDb.OleDbDataAdapter("Insert Ausgabe Into" & _
          "AD", con)
 
        con.Close()
 
        MsgBox("Done")
 
    End Sub
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
 
 
 
    End Sub
End Class