¿como otorgar niveles de acceso usando este codigo?

[ccca001]

siguiendo con lo anterior... mi bd tiene los siguientes campos:

usuario, clave y nivel (nivel de acceso)... con el codigo de abajo puedo determinar si el usuario existe o no, ok, "el problema", ademas debo obtener el valor del campo nivel segun los datos proporcionados para poder otorgar los niveles de acceso, este es el codigo:

rst.Open "SELECT * FROM usuarios", oconn, adOpenDynamic, adLockOptimistic
Set consultas = oconn.Execute("SELECT * FROM usuarios WHERE usuario='" & usuariotxt & "' AND clave='" & clavetxt & "'")
If consultas.EOF And consultas.BOF Then
MsgBox "Nombre de Usuario o Contraseña No Permitidos", vbCritical + vbOKOnly, "Error de Identificacion"
Else
principalfrm.Show
Unload Me
End If

que debo agregar o como lo harian uds para obtener el valor de ese campo con los datos ya obtenidos???

[ccca001]

facil... solo con esta linea...

nivel = consultas!nivel

y luego ve tu lo que haces con los valores...