Function ODBC_TABLE_Check(DATABASE, TABLE_NAME)
    
On Error GoTo line1

  Application.EnableCancelKey = xlErrorHandler
                                                                                                                      
  Dim Conn As New ADODB.Connection
    
  Dim rs As New Recordset
  
User = "root"

Password = 20037541

Set Conn = New ADODB.Connection

Conn.Open "Driver={MySQL ODBC 8.0 UNICODE Driver};Server=127.0.0.1:3306;Database=" & DATABASE & ";User=" & User & ";Password=" & Password & ";Option=3;"

  Dim Catalog As New ADOX.Catalog
  
  Set Catalog.ActiveConnection = Conn
  
  Dim Table As ADOX.Table, Column As ADOX.Column
  
    strSql = "SELECT COUNT(TABLE_NAME) FROM " & _
    " information_schema.TABLES WHERE TABLE_SCHEMA LIKE " & _
    "'" & DATABASE & "'" & "AND" & _
    " TABLE_TYPE LIKE 'BASE TABLE' AND " & _
    " TABLE_NAME = " & "'" & TABLE_NAME & "'"
    
    Conn.CursorLocation = adUseClient
        
    rs.Open strSql, Conn, adOpenStatic
                                    
    ODBC_TABLE_OUT = rs.GetRows(rs.RecordCount)
    
    ODBC_TABLE = ODBC_TABLE_OUT(0, 0)
   
    rs.Close
    
    Exit Function
    
line1:
    
    MsgBox Err.Description & " /" & Err.Number
        
   '  Resume
    
End Function