query computer description in Active Directory

Experts -

I'm having all sorts of troubles returning the Description field for Computers in Active directory. Below is the code I'm using. I'm getting all other attributes, no problem. Any obvious problems with this sub?

Private Sub Computers_Click()
 On Error Resume Next
Const ADS_SCOPE_SUBTREE = 2

    Dim conn4 As ADODB.Connection
    Dim rs4 As ADODB.Recordset
   
    Set conn4 = CurrentProject.Connection
    Set rs4 = New ADODB.Recordset
    rs4.Open "tbl_ad_computers", conn4, adOpenDynamic, adLockOptimistic

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = _
    "SELECT name, description, dnshostname, machinerole, operatingsystem, operatingsystemversion, operatingsystemservicepack FROM 'LDAP://OU=Computers,OU=MyCity,OU=Regions,dc=mydomain,dc=prv' WHERE objectCategory='computer'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
    'Wscript.Echo objRecordSet.Fields("Name").Value
    rs4.AddNew
    rs4.Fields("cn").Value = objRecordSet.Fields("name").Value
    rs4.Fields("description").Value = objRecordSet.Fields("description").Value
    rs4.Fields("dnshostname").Value = objRecordSet.Fields("dnshostname").Value
    rs4.Fields("machinerole").Value = objRecordSet.Fields("machinerole").Value
    rs4.Fields("operatingsystem").Value = objRecordSet.Fields("operatingsystem").Value
    rs4.Fields("operatingsystemversion").Value = objRecordSet.Fields("operatingsystemversion").Value
    rs4.Fields("operatingsystemservicepack").Value = objRecordSet.Fields("operatingsystemservicepack").Value
    rs4.Update
    objRecordSet.MoveNext
Loop

End Sub

Thanks,
crafuse