Visual Basic - Consulta SQL

Estoy usando el DataEnvironment de VB, creo los comandos y todo bien, pero me interesaria crear un comando o un record set por codigo para asignarle el codigo de una consulta, aclaro, la consulta deseo hacerla por codigo directamente y no con el entorno de datos.
Gracias.

DIM R as New ADODB.RECORDSET
R.OPEN "SELECT * FROM TABLA",CONNSTR

donde connstr es la cadena de conexión, el método open admite más parametros, que no es necesario que indiques y que especificarán el tipo de recordset que se va a abrir.