主题：如何遍历内部表和外部表，然后比较内部表和外部表的表名是否一致

1、以下是我使用外部表的有关信息 ：

  _

If File_Sys.Fil_eExists( Pr_ojectPath & "Da_ta\本机数据库.mdb " ) Then

    Con_nect_ions.Add("test", "Pr_ovider=Micr_osoft.Jet.OL_EDB.4.0;Data So_urce=" & Proj_ectPath & "data\本机数据库.mdb;Persist Se_curity Info=False;Jet OLEDB:Dat_abase Password=mima")

    Dim cm_d As new SQ_LCo_mmand

    cm_d.Co_nnect_i

    cm_d.Co_mm_andText = "se_lect * from {职工信息表} where 1=2"   ‘职工信息表是文件里其中的一个表

    Dim dt As Da_taTable = cmd.Exec_ute_Reader

    If dt.D_ata_Cols.Co_ntains("备用054") Then

       。。。。。

    End If

End if

2、现在我想遍历“本级数据库.m_db” 中的所有表，并且和内部表逐一比对，看所有表是否名称相同

请老师指教，遍历行和列在使用说明里都可以学习，但遍历表还是刚遇到，可能用的也比较少。

遍历内部表表名，我找到写法了

For Each t As Table In Tables
   If t.name.IndexOf("网络") <> -1 Then
       msgbox(t.name)
   End If
Next