如何访问LDAP服务器进行身份验证

I've written a code in VB to access LDAP server for authentication purpose. However, it is throwing an exception, probably nativeObject call is generating the exception. The motive is to authenticate the user. I'm providing the code and the exception. Kindly help me to resolve this issue. I've written a code in VB to access LDAP server