OK. For all who might care, I'm sorry it took me so long to post my solution.

The problem I was encountering finds its roots in the limits of ADSI. As per MS article 251195, ADSI uses the subschema information to expose the proper interfaces for a given class, and to retrieve attributes in the correct syntax from the property cache.

If ADSI is unable to locate or properly validate the subschema information, it uses the default LDAP version 2 schema. Because LDAP version 2 servers do not expose a subschema, ADSI maintains schema information internally about many standard attributes and classes. If ADSI uses the default version 2 schema, it does not have access to nonstandard schema information, including custom classes or attributes that have been created on the server.

My solution was acheived through using .Net. In particular, VB.Net from Visual Studio 2005 Pro. You download the free version of Visual Stidio from the MS web site, and it will have all the functionality you need as well because of the .Net Framework.

At any rate, here's the code that I used to bypass ADSI and access the LDAP APIs a different way using VB.Net.

The line "Imports System.DirectoryServices.Protocols" in the code below accesses the APIs needed to bypass ADSI.

I'm sorry that the code is not commented. I'll try to come back and post a commented version later.

Paste into the General Declarations section of a new form.

Imports ActiveDs
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.DirectoryServices
Imports System.DirectoryServices.Protocols

Public Class Main
    Const connectionString As String = "Server=SQLServerName;Integrated Security=True;Database=DatabaseName"
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LDAPLookup()
    End Sub
    Sub LDAPLookup()
        Dim myComputer As String = "ldapserver.mycompany.com"
        Dim ldapConnection As New System.DirectoryServices.Protocols.LdapConnection("ldapserver.mycompany.com:389")
        Dim networkCredential As New System.Net.NetworkCredential("cn=root", "password")
        Dim fido As New System.DirectoryServices.Protocols.SearchRequest
        Dim carcass As System.DirectoryServices.Protocols.SearchResponse
        Dim bones As System.DirectoryServices.Protocols.SearchResultEntryCollection
        Dim bone As System.DirectoryServices.Protocols.SearchResultEntry
        Dim LDAPRecordCount As Integer, SQLRecordCount As Integer
        Dim uid As String, customattribute1 As String, customattribute2 As String
        Dim sn, givenname, cn, customattribute3, customattribute4, customattribute5 As String
        Dim TimeBegin As Date, TimeEnd As Date
        Dim RecordsAdded As Long

        'Try
        ldapConnection.AuthType = AuthType.Basic
        ldapConnection.Credential = networkCredential
        ldapConnection.Timeout = New TimeSpan(0, 0, 60)
        ldapConnection.SessionOptions.SecureSocketLayer = False
        ldapConnection.SessionOptions.ProtocolVersion = 3
        ldapConnection.AutoBind = True
        ldapConnection.Bind(networkCredential)
        TimeBegin = Now()
        fido.Scope = Protocols.SearchScope.Subtree
        fido.DistinguishedName = "ou=people,dc=mycompany,dc=com"
        fido.Filter = "(&(objectclass=person)(cn=userID*))"
        carcass = ldapConnection.SendRequest(fido)
        LDAPRecordCount = carcass.Entries.Count
        bones = carcass.Entries
        Dim da1 As New SqlDataAdapter()
        Dim ds1 As New DataSet()
        Dim da3 As New SqlDataAdapter()
        Dim ds3 As New DataSet()
        Dim da4 As New SqlDataAdapter()
        Dim ds4 As New DataSet()
        Dim conn As New SqlConnection()
        conn = New SqlConnection(connectionString)
        Dim sql01 As String = "select * from MyTable"
        da1 = New SqlDataAdapter(sql01, conn)
        da1.Fill(ds1)
        ds1.DataSetName = "Tables001"
        ds1.Tables(0).TableName = "Table001"
        SQLRecordCount = ds1.Tables("Table001").Rows.Count
        Dim sql03 As String = "select * from GlobalValues where ID = 1"
        da3 = New SqlDataAdapter(sql03, conn)
        da3.Fill(ds3)
        ds3.DataSetName = "Tables001"
        ds3.Tables(0).TableName = "Table001"
        Dim sql04 As String = "select * from LDAPDataRefresherLog"
        da4 = New SqlDataAdapter(sql04, conn)
        da4.Fill(ds4)
        ds4.DataSetName = "Tables001"
        ds4.Tables(0).TableName = "Table001"
        RecordsAdded = 0
        For Each bone In bones
            uid = bone.Attributes.Item("uid")(0)
            tutuid = bone.Attributes.Item("tutuid")(0)
            tutunic = bone.Attributes.Item("tutunic")(0)
            sn = bone.Attributes.Item("sn")(0)
            givenname = bone.Attributes.Item("givenname")(0)
            cn = bone.Attributes.Item("cn")(0)
            tuquestion1 = bone.Attributes.Item("tuquestion1")(0)
            tuanswer1 = bone.Attributes.Item("tuanswer1")(0)
            erpswdlastchanged = bone.Attributes.Item("erpswdlastchanged")(0)
            Dim ds2 As New DataSet()
            Dim sql02 As String = "select distinct * from TivoliUsersUpdatedPasswords WHERE AccessNetID = '" & uid & "'"
            Dim da2 As SqlDataAdapter = New SqlDataAdapter(sql02, conn)
            da2.Fill(ds2)
            da2.Dispose()
            ds2.DataSetName = "Tables001"
            ds2.Tables(0).TableName = "Table001"
            Select Case ds2.Tables("Table001").Rows.Count
                Case Is >= 1
                    'TheText = ds2.Tables("Table001").Rows(0).Item("AccessNetID")
                    'If UCase(TheText) = UCase(uid) Then
                    'SQLRecordCountSingle = 1
                    'Else
                    'SQLRecordCountSingle = 0
                    'End If
                Case Else
                    Dim Table001NewRow As DataRow = ds1.Tables("Table001").NewRow
                    Table001NewRow("UID") = uid
                    Table001NewRow("EmailAddress") = uid & "@mtcompany.com"
                    Table001NewRow("customattribute1") = customattribute1
                    Table001NewRow("customattribute2") = customattribute2
                    Table001NewRow("LastName") = sn
                    Table001NewRow("FirstName") = givenname
                    Table001NewRow("cn") = cn
                    Table001NewRow("customattribute3") = customattribute3
                    Table001NewRow("customattribute4") = customattribute4
                    Table001NewRow("customattribute5") = customattribute5
                    ds1.Tables("Table001").Rows.Add(Table001NewRow)
                    Dim cmd As New SqlCommandBuilder(da1)
                    da1.Update(ds1, "Table001")
                    RecordsAdded = RecordsAdded + 1
            End Select

        Next
        TimeEnd = Now()

        Dim BuilderDa3 As SqlCommandBuilder = New SqlCommandBuilder(da3)
        BuilderDa3.GetUpdateCommand()
        da3.UpdateCommand = BuilderDa3.GetUpdateCommand()
        ds3.Tables("Table001").Rows(0).Item("ReportingPWDResetDateLastUpdate") = TimeEnd
        da3.Update(ds3, "Table001")

        Dim Ds4Table001NewRow As DataRow = ds4.Tables("Table001").NewRow
        Ds4Table001NewRow("DateTimeBegin") = TimeBegin
        Ds4Table001NewRow("DateTimeEnd") = TimeEnd
        Ds4Table001NewRow("RecordsAdded") = RecordsAdded
        ds4.Tables("Table001").Rows.Add(Ds4Table001NewRow)
        Dim cmd2 As New SqlCommandBuilder(da4)
        da4.Update(ds4, "Table001")
        'Catch ex As Exception
        'End Try
        Me.Close()
    End Sub

End Class