假设数据目录为"C:\temp",数据表名为:ttable
dim conn as new adodb.connection
Dim rs As New ADODB.Recordsetconn = "Provider=MSDASQL.1; " & _
        "Persist Security Info=False; " & _
        "Driver={Microsoft Visual FoxPro Driver}; " & _
        "SourceDB=c:\temp;" & _
        "SourceType=DBF;" & _
        "Exclusive=No;"cnn.Open connrs.CursorLocation = adUseClient
rs.Open "select * from ttable", cnn, adOpenKeyset, adLockPessimistic