Need help on LDAP connection with VB6

See more:

VB6

Hi every one,

I am tring to conect to LDAP server in VB 6. Following code.
same LDAP serve details are working correctly with Java code but
giving error in vb 6 Run Time error '-2147217865(80040e37)': Table dose not exist

Code

<pre lang="vb">Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset

    Set conn = New ADODB.Connection
    conn.Provider = "ADSDSOObject"
    conn.Open "ADs Provider"

    Set rs = conn.Execute( _
          "<LDAP://server/o=organization/ou=site/cn=recipients>;" _
          & "(objectClass=*);ADsPath,objectClass,cn;subtree")

    While Not rs.EOF
       Debug.Print rs.Fields(0).Value, rs.Fields(1).Value, _
             rs.Fields(2).Value
       rs.MoveNext
    Wend

    conn.Close

Is it possible to connect LDAP server in vb6.

Please help on this issue...

Please help .........