求助：有关adsi访问活动目录的问题（我是写java的，vb不会啊）

小弟是写java的，但是最近工作需要，要修改一端vb的代码，时间紧迫，实在是没太多时间学习vb,只好前来求助

代码如下：
Dim con As New Connection
Dim rs As New Recordset
Dim Com As New Command

'Open a Connection object
con.Provider = "ADsDSOObject"
con.Open "Active Directory Provider"

'Create a command object on this connection
Set Com.ActiveConnection = con
Com.CommandText = "select name from 'LDAP://DC=ADTEST,DC=COM' where objectClass='*' ORDER BY NAME"

'Set the preferences for Search
Com.Properties("Page Size") = 1000
Com.Properties("Timeout") = 30 'seconds
Com.Properties("searchscope") = ADS_SCOPE_SUBTREE

'Execute the query
Set rs = Com.Execute

' Navigate the record set
While Not rs.EOF
Debug.Print rs.Fields(Name).Value
rs.MoveNext
Wend

运行时报编译错误：用户定义类型未定义

那位能指点一下，万分感谢！！