http://www.foxtable.net/help/topics/0685.htm
Dim mg As New Mergermg.SourcePath = ProjectPath & "SpiderResult.mdb"mg.SourceTableName = "Content"mg.DataTableName = "Content"mg.FieldMaps.Add("标题","标题1")mg.FieldMaps.Add("小区","小区1") mg.FieldMaps.Add("楼层","楼层1") mg.Merge()