请教如何定义adox?

rtmx01

请教如何定义adox?

我的代码如下:

Sub bb()
Dim cat  As New ADOX.Catalog
Dim cmd As New ADODB.Command
Set cat.ActiveConnection = CurrentProject.Connection
cmd.CommandText = "SELECT * FROM 表1"
cat.Views.Append "newView", cmd
End Sub

调试时提示说Dim cat  As New ADOX.Catalog中的
"用户定义类型末定义"

请问要在工具菜单的引用中设置新的引用吗?

一点通

http://www.office-cn.net/vvb/dispbbs.asp?BoardID=2&replyID=96582&id=19386&skin=0

rtmx01

十分感谢!