主题：我要在4个表里面检索一条数据，怎么办？

循环查，循环4个表，然后查找，找到就退出。如

Dim tnames() = {"表A", "表B", "表C"}

For Each tname As String In tnames

    msgbox(tname)

Next