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
------------------------------------------------------------------------

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

还请各位大神帮忙解决小弟再次谢过各位请用视图 LS的大哥我不会视图啊
有没有简单一点的操作

补充：VB ,  数据库(包含打印，安装，报表)