VB中如何实现一个ADO连接多张数据表

因为考虑到程序要在不同的及其上运行
因此ADO的连接使用了代码连接的方式

现在数据库中有三张表 "点图表" "线图表" "多边形图表"

比如我在第一个按钮中连接数据库中的"点图表"，并在DataGrid控件中进行显示
然后要在第二个按钮中连接数据库中的"线图表"，并在DataGrid控件中进行显示
在第三个按钮中连接数据库中的"多边形图表"，并在DataGrid控件中进行显示

第一个按钮按下后，显示正常
第二个按钮和第三个按钮按下 界面显示都没有反应 显示的还是第一张图表的内容

请各位大神帮忙 小弟在此多谢各位 代码如下
------------------------------------------------------------------------
Private Sub Command1_Click()
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\ArcGIS.mdb;Persist Security Info=False" 
  Adodc1.RecordSource = "select * from 点图表" 
  Set DataGrid1.DataSource = Adodc1
  DataGrid1.Refresh
End Sub


Private Sub Command2_Click()
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\ArcGIS.mdb;Persist Security Info=False" 
  Adodc1.RecordSource = "select * from 线图表" 
  Set DataGrid1.DataSource = Adodc1
  DataGrid1.Refresh
End Sub

Private Sub Command3_Click()
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\ArcGIS.mdb;Persist Security Info=False" 
  Adodc1.RecordSource = "select * from 多边形图表"
  Set DataGrid1.DataSource = Adodc1
  DataGrid1.Refresh
End Sub

------------------------------------------------------------------------

实际上是第一个按下的按钮的内容能显示 后面的都不能显示

我估计是ADODC的RecordSet或者RecordSource的数据没有清空
在后面的每个按钮函数的开头加了下面的代码
------------------------------------------------------------------------
  Adodc1.Recordset.Close
  Adodc1.RecordSource = ""
  Set Adodc1.Recordset = Nothing
------------------------------------------------------------------------

但是这次程序报错了
提示是“未发现数据源名称并且未指定默认驱动程序”
这个是什么意思

还请各位大神帮忙解决 小弟再次谢过各位

请用视图