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 SubPrivate 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
------------------------------------------------------------------------但是这次程序报错了
提示是“未发现数据源名称并且未指定默认驱动程序”
这个是什么意思还请各位大神帮忙解决 小弟再次谢过各位