¿Cómo utilizar sentencias SQL en Access VBA?

El problema es un fragmento de código que abre el objeto de conjunto de registros ADO, está incompleto y contiene errores. Aquí está el código completo como referencia:

¿Privado? ¿Sub? comando 111 _ Click()

¿Atenuar? SQL? ¿Como? Línea

Declarar objeto conjunto de registros ADO

¿Atenuado? ¿rs? ¿Como? ADOB. Conjunto de registros

¿Configuración? ¿rs? =?¿Nuevo? ADOB. ¿Conjunto de registros? Cree una instancia del objeto de conjunto de registros.

¿Deletrear sentencias SQL y asignarlas a variables

sql? =?"¿Seleccionar? ¿DGZY.usename? ¿Desde dónde? ¿DGZY? ¿Dónde? (((DGZY.usename)? ¿Por ejemplo? Zhang San');"

Abra el conjunto de registros.

rs. ? sql, ? adOpenKeyset, ? adlock para realizar las operaciones requeridas

El final?