Быстрый и надежный способ получения имен всех полей таблицы в MDB базе - VB

Формулировка задачи:

Способ через Set Rs = Cnn.OpenSchema(adSchemaColumns) и потом через заданные значения полей TABLE_NAME и COLUMN_NAME получать имена полей в рекордсете Rs не устраивает. Т.к. после 15 раза в цикле он перестает работать да и сам Cnn.OpenSchema(adSchemaColumns) открывается крайне медленно. А как задать ограничительные параметры Criteria, SchemaID в Set Rs = cnn.OpenSchema (QueryType, Criteria, SchemaID) я по справке понять не смог - может кто знает для моего случая ... Так Нет ли другого быстрого и надежного способа получения имен всех полей в таблице MDB базы.

Решение задачи: «Быстрый и надежный способ получения имен всех полей таблицы в MDB базе»

textual
                            Листинг программы 
                        

                                Dim MyCon As New ADODB.Connection
    Dim MyRs As New ADODB.Recordset
    
    MyCon.Open 'Provider=MSDataShape.1;Persist Security Info=False;Mode=ReadWrite|Share Deny None;Data Source=D:ProjectVbBreezeSBDatadb12.mdb;User ID=Admin;Data Provider=MICROSOFT.JET.OLEDB.4.0'
    MyRs.Open 'SELECT * FROM Product', MyCon, adOpenStatic, adLockReadOnly
    
    For i = 0 To MyRs.Fields.Count - 1
        Debug.Print MyRs.Fields(i).Name
    Next i
                        