用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)
                ListBox1.Items.Add(rs("sAMAccountName").Value)
                ListBox1.Items.Add(rs("department").Value)
                ListBox1.Items.Add(rs("mail").Value)
                ListBox1.Items.Add("__________________")
            End If
            rs.MoveNext()
        Loop
    End Sub
End Class