Вопрос : InteropServices.COMException: Не смогите раскрыть больше таблицы.

Дорогие специалисты,

I имеют просто применение пульта VB.NET которому петли через все таблицы msaccess и fields собрания, поиск для, котор дали значения текста в применении strSearch variable.

The управляют просмотреть через около 12 таблицы из 207 таблиц в моей базе данных испытания msaccess. И она дает мне продолжающую погрешность как следующий:
---исключение
Unhandled: System.Runtime.InteropServices.COMException: Не может раскрыть an
y больше tables.
на
DAO.Database.OpenRecordset (имени шнура, типа предмета, вариантов предмета, Objec
t LockEdit) на
scanTbls.Module1.Main (sArgs String [])---

I am также смотря такое же разрешение к этому с СУЕТОЙ если DAO не работает well.
Here ниже, то будет мое применение пульта:
---

основы
Module Module1

Sub (sArgs ByVal () как шнур) затемняет db как rs DAO.Database
тусклые как DAO.Recordset
тусклое DaoDbEngine как новое tbl
DAO.DBEngine () тусклое как fld DAO.TableDef
тусклое как strTbl DAO.Field

тусклое как strFld String
тусклое как strSQL String
тусклое как cntTbl String
тусклое как strSearch Integer
тусклое как шнур = петля «c:\test.mdb "

(strPathFile)/>
««пароля " strPathFile
тусклое как шнур = через собрание tables
для каждого tbl в strTbl = tbl db.TableDefs

. Name

для каждого fld в tbl. Fields
если fld. Типом = 10 после этого «тип 10 будет текст, скип для strFld = fld search
номера. strSQL Name
= «ВЫБИРАЕТ * ОТ» & strTbl & «ГДЕ» & strFld _
& «=» «& strSearch &»»; «rs
=
db.OpenRecordset (strSQL) если rs.RecordCount > 0 после этого ', то если strSearch будет ое found
= True
Console.WriteLine, то («имя таблицы: » & конец If
Next

If
Next
конца If
конца
strTbl) на db Next
резюма ошибки. Закройте () tbl
= fld Nothing
= rs Nothing
= Nothing
db = конец Sub

End Module
Nothing
DaoDbEngine = Nothing

---

class=

Ответ : InteropServices.COMException: Не смогите раскрыть больше таблицы.

Случается если вы добавляете конец Recordset:, то

    Для каждого fld в tbl. Поля
                  Если fld. Типом = 10 после этого 'тип 10 будет текст, скип для поиска номера
                      strFld = fld. Имя
                        strSQL = «ВЫБИРАЕТ * ОТ» & strTbl & «ГДЕ» & _
                                  strFld & «= «» & strSearch & «»; «
                        rs = db.OpenRecordset (strSQL)
                        Если rs.RecordCount > 0 после этого ', то если strSearch о
                            о = True
                            Console.WriteLine («имя таблицы: » & strTbl)
                        Закончитесь если

                        'Очистьте вверх открытое Recordsets по мере того как вы идете…
                        rs. Конец

                    Закончитесь если
                Затем