VBA导入VFP的.dbf文件

Sub ImportVFPData()
    Dim i%, sql$
    Dim cn, rst
    Set cn = CreateObject("adodb.connection")
    Set rst = CreateObject("adodb.recordset")
    Dim sql As String
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='dbase 5.0';Data Source=" & ThisWorkbook.Path
    sql = "SELECT * FROM sales.dbf WHERE name='A'"
    rst.Open sql, cn
    With Sheet1
        .UsedRange.ClearContents
        For i = 1 To rst.Fields.Count
            .Cells(1, i) = rst.Fields(i - 1).Name
        Next i
        .Range("A2").CopyFromRecordset rst
    End With
    rst.Close
    cn.Close
    Set rst = Nothing
    Set cn = Nothing
End Sub