Таблица существует ? - VB

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

а как написать на VBA условие
if таблица "tab" существует
:
:
:
end if
спасибо

Решение задачи: «Таблица существует ?»

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

                            <font color="blue">Private</font> cnn <font color="blue">As</font> ADODB.Connection

<font color="blue">Public</font> <font color="blue">Sub</font> procConnection()
    <font color="blue">Set</font> cnn = <font color="blue">New</font> ADODB.Connection
    <font color="blue">Set</font> cnn = CurrentProject.Connection
    
    <font color="blue">If</font> fnDoesTableExists(<font color="teal">"Table1"</font>) <font color="blue">Then</font>
        Debug.<font color="blue">Print</font> <font color="teal">"Таблица существует."</font>
    <font color="blue">Else</font>
        Debug.<font color="blue">Print</font> <font color="teal">"Таблица НЕ существует."</font>
    <font color="blue">End</font> <font color="blue">If</font>
    
    cnn.<font color="blue">Close</font>
    <font color="blue">Set</font> cnn = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Public</font> <font color="blue">Function</font> fnDoesTableExists( _
  strTableName <font color="blue">As</font> <font color="blue">String</font>) <font color="blue">As</font> <font color="blue">Boolean</font>
    <font color="blue">Dim</font> rst <font color="blue">As</font> ADODB.Recordset
    
    <font color="blue">Set</font> rst = <font color="blue">New</font> ADODB.Recordset
    <font color="blue">Set</font> rst = cnn.OpenSchema(adSchemaTables)
    
    <font color="blue">Do</font> <font color="blue">Until</font> rst.EOF
        <font color="blue">If</font> rst!TABLE_NAME = strTableName <font color="blue">Then</font>
            fnDoesTableExists = True
            <font color="blue">Exit</font> <font color="blue">Do</font>
        <font color="blue">End</font> <font color="blue">If</font>
        rst.MoveNext
    <font color="blue">Loop</font>
    
    rst.<font color="blue">Close</font>
    <font color="blue">Set</font> rst = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Function</font>
                        