如果希望出现一个打开文件对话框，合并用户指定的文件，可以参考下面的代码：

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "订单"
    mg.DataTableName = "订单"
    mg.Merge()
End If

加横线的如何导入excel表，选择框的那种，也就是点击导入按键，能够打开一个对话框，选择要导入合并的一个文件。谢谢？