With adodc1
if right(app.path,1)="\" then
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "简支梁计算\型钢基本数据.mdb "
else
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\简支梁计算\型钢基本数据.mdb "
end if
app.path 是应用程序的执行目录。
你的错误原来就是在程序中写错了 绝对地址,造成运行环境变化后,在绝对地址中找不到所需要的文件。
所以要改成相对位置来写。一般情况下,数据都放到 应用目录里,也有时到应用程序目录里再建子目录,然后再放数据的。
按这样修改了之后,这个 简支梁计算 目录放到应用程序目录里,而 型钢基本数据.mdb 放在这个简支梁计算 目录下的。