用记录集打开Excel的问题！！请高手帮忙

Question

本人遇上难题，请你帮忙解决，万分感谢！！
下面的语句，在Win2000中顺利通过，但在客户机器的win98中环境中，运行至最后一句发生错误,提示“类或接口不支持该对象”，但在我的机器的win98中确无些错误，甚为不解，特请教！！！Dim rsCel As New ADODB.Recordset
    Dim cnCel As New ADODB.Connection 'excel连接
    cnCel.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath & ";User ID=Admin;Password=;Extended properties=Excel 5.0"
    cnCel.Open
    rsCel.Open "select  * from [sheet1$]", cnCel, 1, 3

Answer 1

你将connectionstring换成这个试试:
"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & vFileName & ";Extended Properties='Excel 8.0;HDR=Yes'"