用vb.net写的ado连接域服务器读取用户帐号和邮箱信息

Imports ADODB Public Class myEIP     Dim conn, conn1 As ADODB.Connection     Dim rs, rs1 As ADODB.Recordset     Private Sub Bconn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bconn.Click         conn = New Connection         conn.Provider = "ADsDSOObject"         conn.Open()         Dim strsel As String = "select cn ,userAccountControl,sAMAccountName,mail,department from 'LDAP://DC=guangtai,DC=corp' WHERE objectCategory='person' AND objectClass='user'"         rs = conn.Execute(strsel)             Do While Not rs.EOF             If (rs("userAccountControl").Value And 2) = 0 Then                 ListBox1.Items.Add(rs("cn").Value)                 Lis