为什么command.CommandType = adCmdText老出错？

[hh2000]

我创建了一个 command对象
set cmd= Server.CreateObject("ADODB.command")
set cmd.ActiveConnection="dsn=mydsn;uid=myuid;pwd=mywd"
cmd.CommandText="select * from tbl_my"
cmd.CommandType = adCmdText
为什么老是说cmd.commandType=adcmdtext一行出错：ADODB.Command (0x800A0BB9)

[freezwy]

包含adovbs.inc文件了吗？

[wzg2000]

在前面加一句话
Const adCmdText = &H0001

[freezwy]

adovbs.inc包含了当前机器版本的一些常量信息，可以在机器里搜索出来的。