如何用代码实现将dbf文件导入

我正好刚做过一个类似的小需求。
以下是部分代码，你可以参考。
set conn=server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & Server.MapPath("data") & ";Exclusive=No"
Set rs_student = Server.CreateObject("ADODB.Recordset")

KSH = request("KSH")

If KSH <> "" Then
rs_student.Open "select * from [KSH.dbf] where SFZH = '" & KSH & "'",conn,0,1
Else
Set rs_student=nothing
End If
－－在连接dbf时，文件夹的相对路径就如同标准sql中的数据库名，dbf的文件名就如同标准sql中的表名。其他和标准sql一样用的。