Access - Programación DAO.recordset

Hola!!

Tengo mi programación para los usuarios que escriban sus contraseñas, pero ahora quiero crear una programación adjutna que me dija si es 0 son usuarios normales, pero si es 1 es el administrador...
Esta es mi programación:
Private Sub CmdValida_Click()
Dim Rst As DAO.Recordset
Dim Sql As String
On Error GoTo Err_CmdValida_Click
If IsNull(Me.TxtUsuario) Or IsNull(Me.TxtClave) Then
MsgBox "Por favor introduzca nombre de usuario y contraseña", vbCritical, "Aviso"
Exit Sub
End If
Sql = "SELECT * FROM CONTRASEÑA where idusuario='" & Me.TxtUsuario & "' and contraseña='" & Me.TxtClave & "'"
Set Rst = CurrentDb.OpenRecordset(Sql)
If Rst.EOF And Rst.BOF Then
MsgBox "Nombre de usuario y contraseña incorrecto", vbCritical, "Aviso"
Exit Sub
Else
If = 0 Then
MsgBox "Ha ingresado al sistema!!", vbInformation, "Información"
DoCmd.Close acForm, "ACCESO" ' cierras tu form (nombre del formulario a cerrar)
DoCmd.OpenForm "MENU_PRINCIPAL" 'abres un form (nombre del formulario inmediato a abrir)
Else
MsgBox "Bienvenido administrador!!", vbInformation, "Información"
DoCmd.Close acForm, "ACCESO" ' cierras tu form (nombre del formulario a cerrar)
DoCmd.OpenForm "MENU_INGRESAR" 'abres un form (nombre del formulario inmediato a abrir)
End If
End If
Rst.Close
Set Rst = Nothing
Exit_CmdValida_Click:
Exit Sub
Err_CmdValida_Click:
MsgBox "Número de error que se ha producido: " & Err.Number & Chr(13) _
& Err.Description, vbCritical + vbOKOnly, "Error"
Resume Next
Resume Exit_CmdValida_Click
End Sub

Please, alguien ayúdeme!!!!!!!!!!!
Gracias..

Ok creo que por aqui vi algo extraño...

Private Sub CmdValida_Click()
Dim Rst As DAO.Recordset
Dim Sql As String
On Error GoTo Err_CmdValida_Click
If IsNull(Me.TxtUsuario) Or IsNull(Me.TxtClave) Then
MsgBox "Por favor introduzca nombre de usuario y contraseña", vbCritical, "Aviso"
Exit Sub
End If
Sql = "SELECT * FROM CONTRASEÑA where idusuario='" & Me.TxtUsuario & "' and contraseña='" & Me.TxtClave & "'"
Set Rst = CurrentDb.OpenRecordset(Sql)
If Rst.EOF And Rst.BOF Then
MsgBox "Nombre de usuario y contraseña incorrecto", vbCritical, "Aviso"
Exit Sub
Else
' Aqui te falta hacer referencia a tu campo que contiene el valor del 0 o del 1
'If = 0 Then

IF RST!Permiso = 0 then

MsgBox "Ha ingresado al sistema!!", vbInformation, "Información"
DoCmd.Close acForm, "ACCESO" ' cierras tu form (nombre del formulario a cerrar)
DoCmd.OpenForm "MENU_PRINCIPAL" 'abres un form (nombre del formulario inmediato a abrir)
Else
MsgBox "Bienvenido administrador!!", vbInformation, "Información"
DoCmd.Close acForm, "ACCESO" ' cierras tu form (nombre del formulario a cerrar)
DoCmd.OpenForm "MENU_INGRESAR" 'abres un form (nombre del formulario inmediato a abrir)
End If

End If
Rst.Close
Set Rst = Nothing
Exit_CmdValida_Click:
Exit Sub
Err_CmdValida_Click:
MsgBox "Número de error que se ha producido: " & Err.Number & Chr(13) _
& Err.Description, vbCritical + vbOKOnly, "Error"
Resume Next
Resume Exit_CmdValida_Click
End Sub

Pero si tienes mas de un nivel de autoridad y son diferentes los forms que quieres presentar, entonces cambia el if por un select, quedaría ma o menos asi:

SELECT CASE RST!PERMISO
CASE IS = 0
MsgBox "Ha ingresado al sistema!!", vbInformation, "Información"
DoCmd.Close acForm, "ACCESO" ' cierras tu form (nombre del formulario a cerrar)
DoCmd.OpenForm "MENU_PRINCIPAL" 'abres un form (nombre del formulario inmediato a abrir)
CASE IS = 1
MsgBox "Bienvenido administrador!!", vbInformation, "Información"
DoCmd.Close acForm, "ACCESO" ' cierras tu form (nombre del formulario a cerrar)
DoCmd.OpenForm "MENU_INGRESAR" 'abres un form (nombre del formulario inmediato a abrir)
CASE IS =2
END SELECT

OJALA Y TE SIRVA
SALUDOS!!
Desde coahuila, mexico

Oki, millón gracias!!!
Ya lo tengo.....

Saludos desde Ecuador!