问题：一个VBA中的ADO或DAO操作问题，急等！

aresaran

将c:/data1.mdb的数据库中的表table1中的所有字段按照条件[table1].[日期]>#1999-1-22#插入到数据库d:/data2.mdb中的表table2中；
两个数据库结构完全一样。
这个程序要用vba写在d:/data2.mdb这个数据库中，即完成导入功能。
用Ado或者DAO都成，本人菜鸟都不会用，代码只写一半，希望高手帮我实现。
----------------------------------------------------------------
Sub InsertIntoX()
  Dim dbsOut As Database
  Dim dbsIn As Database
  
  Dim tdfOut As TableDef
  Dim tdfIn As TableDef
  
  Set dbsOut = OpenDatabase(c:/data1.mdb)
  Set dbsIn = OpenDatabase(d:/data2.mdb)
  
......
  
......Execute " Insert Into [table2] Select * From [table1] Where ([table1].[日期]>#1999-1-22#) ;"
..........
  dbsIn.Close
  dbsOut.Close
End Sub
---------------------------------