你好：
    你这样连接好像乱套了，如果ADODC2与ADODC1链接的不是一个数据库或数据表而在一个窗体上，你怎么能让他们链接的是相同的内容呢。你最好还是一点点系统的学习吧。
    可以在公共模块中添加数据库连接串，然后在使用的时候进行调用数据库连接字符串。对于数据库连接的知识在许多基础类别的图书中都有详细的介绍，买一本详细的学习一下。
    你的问题好像不太合乎逻辑思维，功能基本不能实现，也没有必要实现，没啥意义。

vb_music 你好，我的代码如下：
Private Sub Form_Load()
Dim xa As Long, xb(4) As Long
For xa = 0 To 4
Select Case xa
Case 0
    Adodc1(xa).ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\商品管理.mdb;Persist Security Info=False"
    Adodc1(xa).RecordSource = "select * from 商品名称 "
    Adodc1(xa).Refresh
  If Adodc1(xa).Recordset.RecordCount > 0 Then
    Adodc1(xa).Recordset.MoveFirst
   For xb(xa) = 1 To Adodc1(xa).Recordset.RecordCount
    Combo_lr(xa).AddItem Adodc1(xa).Recordset.Fields("商品名称型号").Value
    Adodc1(xa).Recordset.MoveNext
   Next xb(xa)
  End If
 Case 1
    Adodc1(xa).ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\商品管理.mdb;Persist Security Info=False"
    Adodc1(xa).RecordSource = "select * from 一级分类 "
    Adodc1(xa).Refresh
  If Adodc1(xa).Recordset.RecordCount > 0 Then
    Adodc1(xa).Recordset.MoveFirst
   For xb(xa) = 1 To Adodc1(xa).Recordset.RecordCount
    Combo_lr(xa).AddItem Adodc1(xa).Recordset.Fields("一级分类名称").Value
    Adodc1(xa).Recordset.MoveNext
   Next xb(xa)
  End If
 Case 2
    Adodc1(xa).ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\商品管理.mdb;Persist Security Info=False"
    Adodc1(xa).RecordSource = "select * from 二级分类 "
    Adodc1(xa).Refresh
  If Adodc1(xa).Recordset.RecordCount > 0 Then
    Adodc1(xa).Recordset.MoveFirst
   For xb(xa) = 1 To Adodc1(xa).Recordset.RecordCount
    Combo_lr(xa).AddItem Adodc1(xa).Recordset.Fields("二级分类名称").Value
    Adodc1(xa).Recordset.MoveNext
   Next xb(xa)
  End If
 Case 3
    Adodc1(xa).ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\商品管理.mdb;Persist Security Info=False"
    Adodc1(xa).RecordSource = "select * from 三级分类 "
    Adodc1(xa).Refresh
  If Adodc1(xa).Recordset.RecordCount > 0 Then
    Adodc1(xa).Recordset.MoveFirst
   For xb(xa) = 1 To Adodc1(xa).Recordset.RecordCount
    Combo_lr(xa).AddItem Adodc1(xa).Recordset.Fields("三级分类名称").Value
    Adodc1(xa).Recordset.MoveNext
   Next xb(xa)
  End If
 Case 4
    Adodc1(xa).ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\商品管理.mdb;Persist Security Info=False"
    Adodc1(xa).RecordSource = "select * from 四级分类 "
    Adodc1(xa).Refresh
  If Adodc1(xa).Recordset.RecordCount > 0 Then
    Adodc1(xa).Recordset.MoveFirst
   For xb(xa) = 1 To Adodc1(xa).Recordset.RecordCount
    Combo_lr(xa).AddItem Adodc1(xa).Recordset.Fields("四级分类名称").Value
    Adodc1(xa).Recordset.MoveNext
   Next xb(xa)
  End If
......略

case 0-4是通过5个adodc控件，调用商品管理.mdb数据库中的5个表，对应到窗体中的五个下拉列表框combobox。我的想法是每用一次adodc就得调用一次“商品管理.mdb”数据库，如何才能将这5次调用整合成一次调用，即将5 行一样的代码：
Adodc1(xa).ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\商品管理.mdb;Persist Security Info=False"

缩写成一行通用代码，供5 个adodc共同使用。

Adodc1(xa)这样写控件的名称是不可以的

叶子，Adodc1(xa)这样写，对应于Combo_lr(xa)控件，也就Adodc、Combobox两类控件共用一个数组变量，运行结果是正确的，只是我想简化一下代码，将以下代码写成一行，而不是五行。
Adodc1(xa).ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\商品管理.mdb;Persist Security Info=False"

如果所有的case语句都有这句代码，就将这句代码放在Select Case语句之上