主题：Merger 合并带有密码的数据库？代码怎么写？

示例四

FieldMaps和Filter属性的用法示例：

Dim mg As New Merger
mg.SourcePath = "c:\data\销售管理.accdb"
mg.Format = "Access2007" '指定格式
mg.SourceTableName = "订单" '指定要合并的表
mg.DataTableName = "订单" '指定接收数据的表
mg.FieldMaps.Add("ID","编号") '将指定ID列的数据合并到编号列中
mg.Filter = "[日期] > #5/31/1999#" '指定合并条件
mg.Merge() '开始合并

.accdb数据库设有密码