如何將RecordSet轉存成mdb格式(編號：950)

經過我try過…Access無法接受RecordSet的格式。
大略的程式碼如下：
dim dbs as object,tdf as object,fld as variant
dim strDB as string
dim rs as new adodb.recordset

rs.open "select * from table1","dsn=aa;initial catalog=database1"

strDB="c:\test1.mdb"

set appAccess = CreateObject("access.application,9"0
appAccess.NewCurrentDatabase strDB
set dbs=appAccess.CurrentDb
set tdf=dbs.CreateTableDef("contacts")

dbs.TableDefs.Append tdf

會出現錯誤訊息，說「不接受此種格式」！
為什麼呢？還是有另外的方法呢？請大家幫幫忙！謝謝！