主题：[求助]外部数据的保存

用文件名作为数据源名称，你可以用一个全局集合，保存已经创建的数据源名称，避免重复创建。

也试过用文件名做数据源名称，结果还是一样出错
Dim dlk As New OpenFileDialog
   dlk.InitialDirectory = ApplicationPath '打开对话框时,最初显示的目录.
   dlk.Filter= "工程量计算|*.mb"
   If dlk.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 
    
      AddConnection(FileSys.GetName(dlk.filename),"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlk.filename & ";Persist Security Info=False")
      DataTables("钢筋计算").ChangeConnection(FileSys.GetName(dlk.filename) )
   End If

这样当然是出错的。

这是第一次创建时可以用，我知道第二次创建时如果已经存在就直接载入数据而不需创建数据源，但第一次创建也后保存也出错，并不是不能创建数据源而出错。
整整三天了都没解决，我的要求其实并不高，只想保存弧表的数据，而且不需要格式，就像Excel可以生成无数个.xls文件一样

以后加个函数，判断是否存在指定名称的数据源。