vbscript對csv（Excel）文件操作問題

我通过下面语句进行操作：
set iCon = CreateObject("Adodb.connection")
set rs = CreateObject("Adodb.Recordset")ExcelOpen = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fileName & ";Extended Properties=""text;HDR=No;FMT=Delimited"""
iCon.Open ExcelOpenstrSQLrs = "select * from CMXRVM.csv"
rs.Open strSQLrs,iConDo while Not rs.EOF
If rs(3).Value = "CLOSE" Then
     strSQL = "insert into [CAT_ExchangeRates](nvrCurrency1,nvrCurrency2,ftRate,nvrImporSystemDate)"& _
                     " values('"&rs(0).Value&"','"&rs(1).Value&"','"&rs(4).Value&"','"&rs(2).Value&"')"
     iCon.Execute strSQL
 
end if
rs.MoveNext
loop运行时为什么提示错误说：Microsoft Jet 资料库引擎无法找到 'CAT.txt'物件。请确定这个物件存在，而且没有将物件名称路径拼错。
CAT是我在数据库中建的表名，为什么它这提示说 CAT.txt呢？ 请问是怎么回事，应该如何解决呢？