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

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName \'指定数据文件
    ip.SourceTableName = "订单" \'指定要导入的表
    ip.NewTableName ="订单" \'导入后的表名
    ip.Import()
End If

这是导入access文件，希望出现一个打开文件对话框的参考代码。

如果希望导入一个excel文件里面的一个工作表（excel文件里面有很多工作表），可以设定一个打开文件对话框，然后再选择所要导入的表吗？