Const ADS_SCOPE_SUBTREE = 3
 
    Dim objConnection As Object
    Dim objCommand As Object
    Dim objRecordSet As Recordset
 
 
    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand = CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    Set objCommand.ActiveConnection = objConnection
 
    objCommand.CommandText = "Select Name,sAMAccountName from " & _
                            "'LDAP://OU=Accounts,OU=KRE,OU=DE,OU=Europe,OU=And" & _
                            "itz Group,DC=Andritz,DC=COM'" & _
                            "where objectClass='user' order by Name"
    objCommand.Properties("Page Size") = 1000
    objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
 
    Set objRecordSet = objCommand.Execute
    objRecordSet.MoveFirst
 
    Do Until objRecordSet.EOF
       If left(objRecordSet.Fields("sAMAccountName").value, 3) = "KRE" Then
          Debug.Print objRecordSet.Fields("Name").value & Chr(9) & _
            objRecordSet.Fields("sAMAccountName").value
       End If
       objRecordSet.MoveNext
    Loop

 Set objRecordSet = objCommand.Execute

Gruss

Markus