Visual Basic - Ejecutar consulta

Hola, si alguien me puede ayudar. Como hago ejecutar una consulta de access desde Visual basic

por medio de un recordset

dim rs as new adodb.recordset
set rs = cn.execute "select campos from tablas where condicion"
text1= rs!campo

donde cn es la variable de conexion a la base de datos

espero que te sirva