Access - abrir conexion

Hola

alguien me puede facilitar el código para abrir una conexion de BD Access y cargar una sql en un recordset?

gracias

mira a ver si te sirve esto:

dim dbs as database ,rst as recordset

set dbs=dbengine.workspaces(0).opendatabase(ruta)
set rst=dbs.openrecordset("lo que sea")