Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
  cn.Open "Driver={Microsoft Text Driver(*.txt; .csv)};Dbq=C:\;Extensions=asc,csv,tab,txt;"
    rs.CursorLocation = adUseClient
    rs.Open "select * from D:\Result.csv", cn, 1, 1
在Result.csv别的程序没有打开时程序运行没问题。但我用excel打开Result.csv时,再运行此程序在rs.open时就报错:Run-time error
[Microsoft][ODBC Text Driver] The Microsoft Jet database engine cannot open the file'(unknown)'.It is already opened exclusively by anthoer user, or you need permission to view its data.
我想在有外部程序打开或访问Result.csv时,我的查询也能够运行。不知该怎么修改程序,请大家帮助。谢谢。