ADSI interface to connect to Etrust LDAP server

Hi,

I am using ADSI interface to connect to LDAP server and retreive the
directory structure. My applicaiton was working for with Netscape
directory. But when i tried to test my applicaiton with an Etrust
directory it does not connect to the server and gives me an
UnSpecified Error. Code i sue to connect to the server is.

  'ADSI objects
    Dim oOpenDSO As IADsOpenDSObject
    Dim oIADs As IADs

   'first set the IADsOpenDSObject object
    Set oOpenDSO = GetObject("LDAP:")
strAddress="LDAP:\\10.203.180.22:389\ou=Staff,o=National"
    'open (or log on to) the directory server
    Set oIADs = oOpenDSO.OpenDSObject(strAddress, strUserName, _
            strPassword, vAuthEncryptSSL)



Hope someone helps.

-Dilish