LLuis Franco:
Public Function ExistTable(sTableName As String) As Boolean
    On Error GoTo ErrHandlerNoExiste
    Dim stmp As String
    stmp = CurrentDb.TableDefs(sTableName).Name
    ExistTable = True
ErrHandlerNoExiste:
End Function

BUHO
...pues ala, ya puestos, otra mas con ADOX, por si acaso...

Function ExisteTablaADO(ByVal NombreTabla As String) As Boolean

   Dim Catalogo As New ADOX.Catalog
   Dim ObjetoTabla As ADOX.Table
   Catalogo.ActiveConnection = CurrentProject.Connection

   For Each ObjetoTabla In Catalogo.Tables
      If ObjetoTabla.Name = NombreTabla Then
       ExisteTablaADO = True
       Exit For
      End If
   Next
  Set Catalogo = Nothing

End Function


LLuis Franco
Public Function ExistTable(sTableName As String) As Boolean
    On Error GoTo ErrHandlerNoExiste
    Dim oRs As New ADODB.Recordset
    oRs.Open "SELECT * FROM [" & sTableName & _
    "] WHERE 1=0", CurrentProject.Connection
    If oRs.State = adStateOpen Then
        ExistTable = True
        oRs.Close
    End If
ErrHandlerNoExiste:
End Function

Buho
:-DDD pues ala, otra mas, esta vez con sintaxis propia de VBA :-P

Function ExisteTabla(NombreTabla As String) As Boolean

 If Len(Nz(DLookup("Name", "msysobjects", _
   "type=1 and Name= '" & NombreTabla & "'"), "")) <> 0 Then
   ExisteTabla = True
 End If
End Function