VB封装asp代码的数据库连接

[qq_40783343]

VB6封装后其他不链接数据库的地方都是正常的。链接数据库的到不到信息？
请大佬帮忙看看……
asp中
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "select * from QS where Itemmix='" & Itemmix & "' and Qs_Ver1st=" & Qs_VerJJ & " ORDER by id desc", connCTD, 1, 3
ItemNameS = rs("ItemNameS")
可以得到信息。放入VB6就不行了

进行了如下修改也不行
Dim connCTD
Set connCTD = MyServer.CreateObject("ADODB.Connection")
connCTD.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & MyServer.MapPath("/plan/$CTD#.asp")
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "select * from QS where Itemmix='" & Itemmix & "' and Qs_Ver1st=" & Qs_VerJJ & " ORDER by id desc", connCTD, 1, 3
ItemNameS = rs("ItemNameS")
无法读取到项目信息。

[浴火_凤凰]

还是贴出出错信息比较好断定问题处在哪

[好记忆不如烂笔头abc]

看上面的代码理论上不需要怎么改。应该把错误信息贴出来，根据错误处理即可。

[Rimifon]

去年的挖坟帖了。很明显， Server 是 ASP 里面才有的对象，把 Server. 去掉就行了，本地环境也不需要 MapPath