istediğin tablo ve sorgularını ayırt edeceğin bir özellik yap.listelenmesini istediğin tabloların başına lst ekle lsttblanatablo gibi.
kodda da
If Left(obj.Name, 4) <> "mSys" Then s = s & obj.Name & ";"
bölümünü
If Left(obj.Name, 3) = "lst" Then s = s & obj.Name & ";"
olarak değiştir.
sorgularınıda aynı şekilde yapabilirsin.