Visual Basic - Borrar una tabla de Access desde Visual

Hola! Quiero borrar una tabla que tengo en Access que se llama zonaTabla. El código que escribo es el siguiente, pero no me funciona:

Private Sub BORRAR_Click()
Dim conexionAccess As Workspace
Dim dbsSocios As Database
Dim rst1 As Recordset

Set conexionAccess = CreateWorkspace("nuevoWorkSpaceAccess", "admin", "", "dbUseAcces")
Set dbsSocios = conexionAccess.OpenDatabase("socios.mdb")

Set rst1 = dbsSocios.OpenRecordset("DELETE * FROM zonaTabla")

rst1.Close
dbsSocios.Close
conexionAccess.Close

El problema creo que lo tiene la consulta, porque escribo otro tipo de consulta, una SELECT por ejemplo, y si que me funciona desde Visual; y pruebo el DELETE en Access y también me funciona; asi que he llegado a la conclusión de que me falla algo al pasar la consulta a Visual. ¿Cómo lo puedo solucionar?

Gracias de antemano

La instrucción "DELETE" no lleva asterisco: "DELETE FROM zonaTabla"
El asterisco se usa con el Select para indicar TODOS los campos de la tabla.
(A ver qué opina el maestro "Vengador", porque seguramente saldrá con una babosada de las suyas)

Esa afirmación es totalmente erronea, se puede utilizar DELETE con o sin asterisco.

Marina:
Ataca directamente a la base de datos, sin espacios de trabajo ni recordsets

Dim dbsSocios As DAO.Database
Set dbsSocios = OpenDatabase(App.Path & "socios.mdb", False, False, ";" & "pwd=TuPassword;")

dbsSocios.Execute "Delete * From ZonaTabla"

antes de " socios.mdb" tienes que poner una barra invertida que aquí, uaunque la escribas, no la visualiza.

Intenta solo con "DELETE zonaTabla"
El standart de borrado en sql es mencionar solo la tabla sin asterisco y sin from.
Aunque reconozco que el standat de sql no aplica para Access, debería funcionar.

Espero que te sirva.

Saludos.

¿Sin asterisco y sin from?

Si lo pone como dices, le va a dar un error se síntasis en la instrucción DELETE.

¿Porqué antes de contestar, no comprobais lo que decís?

Y me disculpo.
Normalmente no ocupo para nada Access, así que esperaría que funcionara.
Como veo que no, espero que Marina no tome en cuenta mi sugerencia y se ahorre algo de tiempo.

Saludos.

Hola!
Al final he econtrado la solución con lo que me habeis dicho, la sentencia correcta es (por lo menos la que me funciona correctamente):

Set conexionAccess = CreateWorkspace("nuevoWorkSpaceAccess", "admin", "", "dbUseAcces")
Set dbsSocios = conexionAccess.OpenDatabase("socios.mdb")

dbsSocios.Execute ("DELETE * FROM zonaTabla;")

dbsSocios.Close
conexionAccess.Close

Gracias por todo!

Puies ni tanto así como "totalmente erronea", porque intenta hacerlo con una tabla de MySQL y te dará error de sintaxis; pero tienes razón en que Access sí lo soporta.