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