Private cnn As ADODB.Connection

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

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