Visual Basic - Borrar varias tablas en Visual Basic

Buenos días.

¿Podríais decirme por favor,si se puede, cómo se borran varias tablas en Visual Basic/Access que contengan el texto "error"?

Yo he intentado algo como drop table like '%error%', pero no funciona.

Muchas gracias!

Que contengan el texto "error", donde?

En el nombre de la tabla, en algún campo de la tabla?

Buenas.

En el nombre de la tabla.

Gracias!

Para eliminar todas las tablas que contengan en cualquier parte del nombre la cadena "error"

Dim rs As ADODB.Recordset
Dim sql As String
Set rs = TuConexion.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
Do While Not rs.EOF
If rs!TABLE_NAME Like "*error*" Then
sql = "DROP TABLE " & rs!TABLE_NAME
TuConexion.Execute sql, , adCmdText
End If
rs.MoveNext
Loop

Un saludo!

Ostrás.
Me has salvado la vida! Un millón de gracias!

Anda xagerao, no era para tanto!