Debes de escribir el siguiente código (o algo parecido).
public function ExistTable(Nombretabla as string, dbname as string) as boolean
dim db as dao.database
dim tb as tabledef
on local error <aqui lo que desees para capturar errores>
'se supone que dbname lleva la ruta completa <path+fichero.mdb>
set db=worspaces(0).opendatabase(dbname)
for each tb in db.tabledefs
if lcase(trim(tb.name))=lcase(trim(nombretable)) then
existtable = true:exit function
next tb
'el nombre de la tabla no se ha encontrado en la colección Tabledefs de la base de datos.
existtable=false
end function
espero que te resulte útil (ya me lo dirás)
Un saludo -acalanto-
