Provider = Microsoft.Jet.OLEDB.4.0并且错误：路径对于CSV记录重试无效

Question

currentPath2 = "C:\output-Cities.txt"

Dim cn,rs


    Set cn = createobject("ADODB.Connection")
    Set rs = createobject("ADODB.Recordset")



strConn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currentPath2 & ";Extended Properties='text;HDR=No'" 
    cn.ConnectionString = strConn
cn.Open
    RS.ActiveConnection = cn
    RS.Source = "select * from " & currentPath2`enter code here`

它在Provider = ...上给错误路径说路径无效，我是否需要安装OLEDB驱动程序但是我在C盘的系统文件夹中看到了OLE文件夹，请知道我是否必须实现任何功能更多。我想在记录集中检索csv记录，请知道是否有人可以在这里帮助我。这必须在VBA和LotusScript中都有效。

Answer 1

您是否添加了对VBA项目的引用？