请高手赐教：vb6.0+adodc+access 开发一个小应用程序出错。弄了一个星期没解决。

[wangxy7118]

程序中有代码：
Dim sql As String, mlink As String, mpath As String
mpath = App.Path
If Right(mpath, 1) <> "\" Then mpath = mpath + "\"
mlink = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" + "Data Source=" + mpath + "Tea.mdb"
sql = "Select * from Tea.user where 用户名='" + Text1.Text + "' and 密码='" + Text2.Text + "'"
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = sql
Adodc1.Refresh

每当程序运行到Adodc1.Refresh时，报错如下：
找不到文件：C:\Program Files\Microsoft Visual Studio\VB\Tea.mdb.
我不知为什么程序要到这个目录下去找数据库文件。且adodc控件属性配置不论为空，还是给他设置一下属性，都出现这个问题。实在不解。
请高手赐教！不胜感激！

[wangxy7118]

谢谢各位！我今天晚上再去试试。

[myliupp]

你的.vbp文件存在那儿吧？是不是你每次进VB，然后从菜单中找到存放的项目文件位置啊？你必须显式将项目文件存放在别处，否则你说的那个目录，就是VB每次存放的默认目录，即使你的.frm，.bas文件是存放在别处的。

[zzyong00]

Adodc1.CommandType = adCmdtext

[yanli]

楼上正解

[of123]

你直接双击你的工程文件 .vbp 进入 VB 界面来调试。
当你编译后，从 .exe 文件启动就不会有这个问题了。

[wds]

虽然程序设置了应用成当前路径：App.Path，但是VB装载入系统后，只要你用了路径选择后此变量就会变更为最后一次的路径。

解决方法：

调试时写入绝对路径 如：mpath =“c:\prograr\”
编译时改为:mpath= App.Path，注释掉绝对路径的那行

这样调试时不会再出现找不到路径错误，而编译时也不会出错。