Visual Basic - Ejecutar consultas SQL

Buenas

necesito saber como puedo ejecutar una consulta en SQL. Yo pongo este codigo pero no me funcioname da un error de recordset.

Private Sub Command1_Click()
Dim consulta As QueryDef
Dim db As Database
Dim rs As Recordset

Set db = OpenDatabase("c:\d\caps.mdb")
Set consulta = db.CreateQueryDef("", "SELECT * from caps")
Set rs = consulta.OpenRecordset()
End Sub

Gracias, este foro es cojonudo

Y que tal si lo abrimos asi:

Set rs = db.OpenRecordset("SELECT * FROM CAPS", dbOpenDynaset)

Atte.
Eduardo