Access - rellenar dataset

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim strSql As String

'abrir la conexion a la base de datos

Set cn = New ADODB.Connection

cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\ruta\a\mi\base\de\datos.accdb;"

'crear la sentencia SQL para seleccionar todos los registros de la tabla

strSql = "SELECT * FROM NombreDeLaTabla;"

'crear el recordset y llenarlo con los datos de la tabla

Set rs = New ADODB.Recordset

rs.Open strSql, cn, adOpenStatic, adLockOptimistic

'usar los datos del recordset

'cerrar el recordset y la conexion

rs.Close

cn.Close

Set rs = Nothing

Set cn = Nothing