VB6 y access; como ver si existe o no la tabla

[Sir Matrix]

Hola.....

estoy hasta las masas...

Cómo puedo ver si esxiste o no una tabla determinada en el access para luego eliminarla con un "Drop Table"??

(todo deste visual)

Saludossssssss

[vbx3m]

Prueba poniendo este codigo:

Public Function TableExists(DatabaseName As String,TableName As String) As Boolean

`DataBaseName = Nombre de la base de datos
`TableName = Nombre de la tabla a buscar

Dim DB As Database, t As TableDef

On Error GoTo errorhandler
Set DB = Workspaces(0).OpenDatabase(DatabaseName)
On Error Resume Next

Set t = oDB.TableDefs(TableName)
TableExists = Err.Number = 0
DB.Close

exit function

errorhandler:

Err.Raise Err.Number
Exit Function

end function

Pruebalo y me avisas...