Visual Basic - Borrar todos los registros de una tabla

HOla foro, necesito borrar todos los regristros de una tabla temporal de access, este es el codigo ke hice pero obvio no funciono:

Function BorrarTmpAlmacen()
Dim Cadena As String
Cadena = "DELETE * FROM TmpAlmacen WHERE Descripcion<> NULL"

Conecta = App.Path & "BDsBdRevisa.MDB"
Set BaseDatos = OpenDatabase(Conecta)
Set Dr = BaseDatos.OpenRecordset(Cadena)

BaseDatos.Close
Set BaseDatos = Nothing
End Function

Me dice "Operacion no Valida" en la LInea del Set DR.

De antemano gracias.

De que tipo es BaseDatos?
Lo que te puedo decir es que el query no devuelve un recordset, por lo que OpenRecordset no es válido para ejecutar este tipo de query.
Normalmente esto se ejecuta en un command y es atraves de un executenonquery.

Saludos.

Que maje en serio, mil disculpas, ya quedo resuelto. Error en la tecnica de copiar-pegar.
jajaja
Mil disculpas y si es lo ke me dices, tuve ke modificar la funcion pero kedo.

Gracisas