Accessing LDAP through VB

[Pixaar]

hello..
I am new to VB and really new to LDAP

I am trying to write an application for our lunch card system...where a student's card is read by a barcode reader and the information (a string) is sent to the LDAP and some attribute value is accessed.

here's the BaseDN:- ou=test1,dc=ky,dc=local
LDAP server:- ldapone.ky.local

I have the userDN and Password!...
I would like to know the syntax for bindin and R/W to a specific attribute!...... i tried to make the connection using the following but it's not working!..

Dim con
Dim command
Dim rs
Dim dso
Dim cont
Dim path
Dim user

AdsPath = "LDAP://ldapone.ky.local/ou=Students,ou=test1,dc=ky,dc=local"
Set con = CreateObject("ADODB.Connection")
con.Provider = "ADsDSOObject"
con.Properties("User ID") = "uid=test2admin,ou=adminuser,dc=ky,dc=local"
con.Properties("Password") = "password"
con.Properties("ADSI Flag") = "34"

con.Open "ADSI"

Set com = CreateObject("ADODB.Command")
Set com.ActiveConnection = con




com.CommandText = "<" & LDAP: /ldapone.ky.local/ou=Students,ou=test1,dc=ky,dc=local & ">;(uid="& kt40627 & ");Adspath,cn,SavoniaStudentCard,SavoniaLastLunch;subtree"



Set rs = com.Execute


may i get some help working things out here?
thank you very much!