Access - Evaluar un SQL con condicionales

Hola

Me gustaria saber como puedo evaluar un consulta SQL en vba con condicionales, es decir;

Si tengo:

- Dim strAs String

str = "SELECT TABLA1.NIVEL FROM TABLA1 WHERETABLA1.CODIGO= " & vCodigo & " "

donde vCodigo es una variable publica de tipo entero.

Como puedo hacer un "If" dependiendo del valor de Tabla1.NIVEL?

No se si me explico, es decir, si "str" es un valor entero "x" que haga una cosa, sinó que haga otra.
Cual seria el codigo en visual? porque tengo entendido que "str" no es igual al valor de tabla1.nivel (el cual es un entero). Como podria evaluar dicho resultado de la sentencia SQL con codigo VBA?

No se si tengo que poner no se que de "Rocrdsource" o algo...... soy un poco novato en Visual y no conzco mucho la nomenclatura....

Muchas gracias.

Espero que esto te sirva

dim rs as recordset
dim str as string
str = "SELECT TABLA1.NIVEL FROM TABLA1 WHERETABLA1.CODIGO= " & vCodigo & " "
set rs = currentdb.openrecordset(str)
do while not rs.eof
if rs![TABLA1.NIVEL] = "A" then
aqui lo que necesite
end if
rs.movenext
loop
rs.close

Pues lo he probado y no funciona. Tampoco entiendo que hace y me gustaria entender que hace para poder aplicarlo en un futuro y comprender el lenguaje,.

Especifico; lo que quiero es guardar el resultado de una consulta SQL en una variable para luego hacer un condicional y abrir un formulario u otro en funcion del valor de esa consulta.(la comparacion la tendre que hacer contra un entero)

Gracias

¿donde te da error? , ¿te llega a compilar?
te explico lo que hace este código

dim rs as recordset
dim str as string
str = "SELECT TABLA1.NIVEL FROM TABLA1 WHERETABLA1.CODIGO= " & vCodigo & " "
'Esto abre la consulta
set rs = currentdb.openrecordset(str)
'Aqui se abre la consulta y se recorren todos los registros obtenido en la misma
do while not rs.eof
'Aqui se evalua el valor obtenido en la consulta
if rs![TABLA1.NIVEL] = "A" then
'Aqui haces lo que se necesite para abri un formulario puedes usar docmd.openform ....
' aqui lo que necesite
end if
'Aqui se mueve al siguiente regsitro de la consulta
rs.movenext
loop
'aqui se cierra la consulta
rs.close

Gracias por la aclaracion,
El error es en la siguiente linea:

If rs![TABLA1.NIVEL] = "A" Then

el error es el nº "3265" No se encontró el elemento en esta seccion

gracias!

Perdona pon
If rs![NIVEL] = "A" Then
hay que quitar el nombre de la tabla

Es perfecto. Gracias por la ayuda!