Function ExisteTabla(Tabla As String, Ruta As String) As Boolean

   Dim cat As New ADOX.Catalog
   Dim tbl As ADOX.Table

   ' Abro el catalogo
   cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & Ruta & ";"

   For Each tbl In cat.Tables
      If tbl.Name = Tabla Then
       ExisteTabla = True
       Exit Function
      End If
   Next
End Function