Excel 打开后台Mdb数据库出现问题 请帮忙！！

dz05

在Excel VBA里。运行以下VBA出错。请大家看看怎么回事？


Sub Open_Database()
On Error GoTo errmsg

MYPATH = ThisWorkbook.Path & "\\Dataserve\2012Data\UTR.mdb"   '数据库是在网络上的。有问题吗？
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MYPATH & ";jet oledb:database password=4321"

Exit Sub

errmsg:
MsgBox "无法打开后台数据库，请检查一下！"
End Sub

运行后直接跑到Errmsg里去了。

是不是数据库打开延时问题？

ASLXT

ThisWorkbook.Path 是excel文件的保存路径，
"\\Dataserve\2012Data\UTR.mdb" 是共享文件夹得路径，把两个路径串在一起肯定有问题。应该是
MYPATH =  "\\Dataserve\2012Data\UTR.mdb"   '数据库是在网络上的。有问题吗？
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MYPATH & ";jet oledb:database password=4321"

测试一下