Visual Basic - Ejecutar consulta de Acces desde VB 6

Hola a todos.....
quisiera saber como puedo ejecutar una consulta hecha en acces desde vb. la consulta es de eliminacion...

Dim db as database
Dim rs as recordset

On local Error Resume Next
Set db = .OpenDatabase (ruta de la base de datos)
set rs=db.openrecordet("SELECT * FROM tabla")
If Err then
MsgBox ("Error" & err.description)
err=0
End If

Hola muchas gracias por tu ayuda....
fijate que lo que necesito es ejecutar una consulta de eliminacion que tengo ya echa en acces desde vb.
la consulta se llama: BorrarObsoletos

gracias