VB中查询多个（最多可能有几百个）表
VB中查询多个（最多可能有几百个）表并用adodc和datagrid两控件显示，A表的第N行（例如第11行）显示在datagrid的第一行，B表的第N行（例如第11行）显示在datagrid的第二行，表的第N行（例如第11行）显示在datagrid的第三行，D表的第N行（例如第11行）显示在datagrid的第四行，依此类推，如何实现？敬请帮忙。
[解决办法]

如果你一次查询需要很多表，那说明你的数据库结构设计有问题。

[解决办法]
For i = LBound(tablename) To UBound(tablename)
S = S & "Union All SELECT * From " & tablename(i) & " Where ID =511 "
Next

S = Right(S, Len(S) - 9)
Adodc.RecordSource = s
Adodc.Refresh
[解决办法]
楼上多输了个5
For i = LBound(tablename) To UBound(tablename)
S = S & "Union All SELECT * From " & tablename(i) & " Where ID =11 "
Next

S = Right(S, Len(S) - 9)
Adodc.RecordSource = s
Adodc.Refresh