主题：[求助]外部数据源

 你的数据源设置成【独占】了？

On Error Resume Next
Dim conn As New ADODB.Connection
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=g:\test.mdb;Jet OLEDB:Database Locking Mode=0;")
If Err.Number = -2147467259 Then
    MsgBox("文件已经在使用中,估计是被别人以独占方式打开了")
End If

 直接打开的话，请用共享，不建议用独占方式 http://jingyan.baidu.com/article/851fbc370284633e1f15aba0.html