我现在有一个dbf表,然后在oracle中查询到一些数据,想把这些数据存入dbf中,我该怎么办?高手请指教
Dim MyTable As TableDef, tdfNew As TableDef, MyField As Field
Dim MyDatabase As Database
Dim MyPath As String
Dim Name As String
Dim FileTitle As String, Rdset As ADODB.Recordset
CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "FoxPro(*.dbf)|*.dbf"
CommonDialog1.ShowSave
If Len(CommonDialog1.FileName) = 0 Then
    Exit Sub
End If
FileTitle = CommonDialog1.FileName
MyPath = Left(FileTitle, InStrRev(FileTitle, "\", Len(FileTitle)) - 1)
Name = CommonDialog1.FileTitle
Set MyDatabase = OpenDatabase(MyPath, False, False, "dBase 5.0;")
Set tdfNew = MyDatabase.CreateTableDef(Name)
'建立dbf
tdfNew.Fields.Append tdfNew.CreateField("sysl_id", dbText, 100)
tdfNew.Fields.Append tdfNew.CreateField("sysl_time", dbDate, 8)
tdfNew.Fields.Append tdfNew.CreateField("emp_id", dbText, 50)
tdfNew.Fields.Append tdfNew.CreateField("emp_name", dbText, 50)
tdfNew.Fields.Append tdfNew.CreateField("sysl_ip", dbText, 50)
tdfNew.Fields.Append tdfNew.CreateField("sysl_old", dbText, 200)
tdfNew.Fields.Append tdfNew.CreateField("sysl_new", dbText, 200)
tdfNew.Fields.Append tdfNew.CreateField("sysl_item", dbText, 200)
tdfNew.Fields.Append tdfNew.CreateField("clie_name", dbText, 100)
MyDatabase.TableDefs.Append tdfNew
Set Rdset = New Recordset
Rdset.Open "select * from  where sysl_time>=to_date('2003-6-27','yyyy-mm-dd') and sysl_time<=to_date('2003-7-4','yyyy-mm-dd')", DB, 3, 3
我该怎么把rdset中的数据导入到dbf中呢?