主题：求助access恢复命令简化代码

这样？

Dim Names() As String  = {"帐务处理", "users","功能分类","单位","归口类型","授权表","收支汇总表","文件管理","正常经费收支情况表","水利专户","水库经营性收支表","科股室","项目设置","预算类型","预算草案"}
For Each Name As String In Names

    DataTables(Name).DataRows.Clear()
    Dim mg As New Merger
    mg.SourcePath = f
    mg.PassWord="sir"
    mg.SourceTableName = Name
    mg.DataTableName = Name
    mg.Merge()
Next

直接这样就可以遍历了

For Each name As String In Connections("blny2011").GetTableNames
    Output.Show(name)
Next