dim AppLocation as string
if right(App.path,1)="\" then
AppLocation=app.path & "数据库.mdb"
else
AppLocation=app.path & "\数据库.mdb"
end if"DBQ=" & AppLocation & ";DRIVER={Microsoft Access Driver (*.mdb)};uid=admin;pwd=190944"
if right(App.path,1)="\" then
AppLocation=app.path & "数据库.mdb"
else
AppLocation=app.path & "\数据库.mdb"
end if"DBQ=" & AppLocation & ";DRIVER={Microsoft Access Driver (*.mdb)};uid=admin;pwd=190944"
但是要区别是否是根目录的问题
即有没有"\"!