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试试