语句应该没问题，问题应该出现在具体的路径和文件名上。
可以debug.pring sqlstr看看。

另外，具体的语句你可以引用DAO，通过连接数据库，直接获得连接串，对比一下是否一致【之后dao可以删除】。

Server.MapPath 好像不是VB60的对象吧，VB60应该是 App.Path 吧？
怎么好像记得 Server.MapPath 是网页中的语句吧。

VB60 的相对路径是 App.Path ，不是 Server.MapPath ！VB6.0 好像没有 Server 对象！

[此贴子已经被作者于2018-1-4 07:20编辑过]

如果没对Server.MapPath赋值，那么就是这个变量错误。
vb当前程序路径如楼上所说，是app.path

感觉 直接复制的 网页代码过来的。

拿ASP比较
网页代码里，不存在本地 app 对象，换成 服务器对象 server
还有就是基本语法里，网页代码是基于 VBS 的，有几个基本命令不同，如终止运行命令，
连 for 循环都好像不同，忘了。