VBA联接FOXPRO DBF文件

VBA连接FOXPRO DBF文件
各位大虾,小弟用VBA连接VFP的DBF文件,总是报以下错误

执行阶段错误,'-2147467259(80004005)':
Automation错误
无法指出的错误

原代码如下:
Sub tt()
     Dim i As Integer
     Dim cn, rst, cnnstr
     Dim sql As String
     
     Set cn = CreateObject("ADODB.connection")
     Set rst = CreateObject("ADODB.recordset")
     cnnstr = "driver={microsoft visual foxpro driver};sourcetype=dbf;sourcedb=f:\;exclusive=no;"
     cn.Open cnnstr
     sql = "select count(*) from admit"
     rst.Open sql, cn
     Range("B4") = rst.Fields(0).Value
     rst.Close
     cn.Close
     Set rst = Nothing
     Set cn = Nothing
End Sub



哪位大虾知道,先谢谢了,可以补加分的
------解决方案--------------------------------------------------------
你最好是指出运行到哪行出问题了，还是说根本开始不了，按F8一行行调试下

rst.Open sql, cn，1，1(试一试加这个参数看看）
------解决方案--------------------------------------------------------
DBF格式是否正确，用VFP9的OLEDB试试