Verificar si tabla de access existe y borrarla

[Guval]

Con Visual basic 6.0, access 97, y utilizando ADO, como puedo verificar si una tabla existe y borrarla utilizando codigo.

[sagutxo]

Dim AbreBase As Database
Dim AbreTablas As TableDef
Dim ValStr As String
Dim ValError As Boolean
IniciaTabla1

Set AbreBase = OpenDatabase(PathDB.Text, True, False)

'Muestra tablas existentes en Tabla1
AbreBase.TableDefs.Refresh
IniciaTabla1

For Each AbreTablas In AbreBase.TableDefs

If (AbreTablas.Attributes And dbSystemObject) = 0 Then
Tabla1.Rows = (Tabla1.Rows + 1)
Tabla1.Row = (Tabla1.Rows - 1)
Tabla1.TextMatrix(Tabla1.Row, 0) = AbreTablas.Name

If Tabla1.Row >= Tabla1Top Then
Tabla1.ColWidth(0) = (Tabla1TopR - 240)
End If

End If

Next

AbreBase.Close
Set AbreBase = Nothing


espero que te sirva. :)

Tabla1 es un msflexgrid.