加上
cnADODB.CursorLocation = adUseClient
试试

解决方案 »

  1.   

    正确。不过最好换sql server数据库。access不太适合多用户操作。
      

  2.   

    to holydiablo(鱼头):
      加上
      cnADODB.CursorLocation = adUseClient不行,仍然在
      cnADODB.Open cnStr 语句上出现"文件正在使用中"的错误提示.
      

  3.   

    我加的位置:
       Set cnADODB = New ADODB.Connection
       cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + DatabasePathName + ";"
       cnADODB.CursorLocation = adUseClient
       cnADODB.Open cnStr是否是位置加错误了?
      

  4.   

    cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source==" & DatabasePathName & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"