你可以定义一个外部数据库记录集
dim dbs as database
dim rstDbf as recordset'获得保存路径及文件名代码
...'假设路径为C:\ss,文件名为:fox.dbf
set dbs=opendatabase("c:\ss",true,true,"FoxPro 3.0")
set rstDbf=dbs.openrecordeset("fox")打开后即可以记录集的方式一条一条的将数据导过去。
你可以参考VB中外部数据库的操作你的代码我没有试过,或许可能是你安装VB时没有把外部数据库支持那部分装上。安装时使用自定义即可。