如何在VB中用ADO读取DBF文件中的数据?

最好能有连接,打开的方法,附例子最好.

Public DBFcon As New ADODB.Connection

'打开DBF文件
Public Function OpenDBF(DirPath As String) As Boolean
On Error GoTo err
DBFcon.open "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" + DirPath + ";SourceType=DBF; "
OpenDBF = True
Exit Function
err:
OpenDBF = False
MsgBox err.Description
End Function

‘关闭dbf文件
Public Sub CloseDBF()
If DBFcon.state = adStateOpen Then DBFcon.Close
End Sub

’执行select ，update，delete 操作
Public Function ExeDBF(sql As String, rs As ADODB.Recordset) As Boolean
On Error GoTo err
rs.open sql, DBFcon, adOpenKeyset, adLockOptimistic
ExeDBF = True
Exit Function
err:
ExeDBF = False
End Function