自动定位数据库出现错误?大家帮忙，谢谢

Question

strPath = App.Path
Set db = New ADODB.Connection
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source" & strPath & "\shangji.mdb; Persist Security Info=False"
db.Open
Set rst = New ADODB.Recordset
rst.Open "delete * from jiqi where 机器名 = '" & Text5.Text & " ' ", db, adOpenStatic, adLockBatchOptimistic
Set rst2 = New ADODB.Recordset
rst2.Open "select * from jiqi ", db, adOpenStatic, adLockBatchOptimistic
Set MSHFlexGrid1.DataSource = rst2想通过app。path自动获取当前路径，然后连接到目录下的shangji。mdb数据库，可是总是运行到db.Open出错：”找不到可安装的isam“，不知道是什么意思？

Answer 1

Data Source=" & strPath & "\shangji.mdb
少了个等号

Answer 2

db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & strPath & "\shangji.mdb; Persist Security Info=False"
不过我觉得你的APP.PATH 还应该判断一下是否是根目录,如果是根目录,那么APP.PATH = "D:\"
再连接\shangji.mdb  还是能出错,