si usas DAO:
set ws=dbengine(0)
set db = ws.opendatabase(tubase.mdb)
'--para el caso insert, update, delete:
db.execute "tu sentencia sql"
'--para el caso de recuperar datos con recordset:
set rs = db.openrecordset(strSql, (2))
'donde strSql es tu cadena sql. Ej: "Select * from table". 2 indica que el rs se abre para escritura/lectura, cambiar por 4 para solo lectura.
En el caso de ADO, definir un objeto ADODB.Recordset, y ADODB.Connection, luego:
Set rs = New ADODB.Recordset
rs.ActiveConnection cnn
rs.Open strSql
'--donde cnn es tu objeto connection y strSql es tu cadena de consulta Sql