Hola , alguien me puede ayudar
Estoy haciendo un programa en VB 6.0 con base de datos Acces

La base de datos : tiene una tabla que se llama Clave la cual tiene campos Id Usuario Permiso1 Permiso2
hasta permiso 20

ósea que cuando la clave para ingresar al sistema me sale el formulario principal, ahi no me sale con las restricción

Detallo el código que estoy poniendo en el cmd de aceptar
[IMG]C:\Users\Mariano\Desktop\form.jpg[/IMG]
Private Sub Command1_Click()
If Text1.Text <> "" Then
Tira = "Select * from clave"
Set RS1 = Base.OpenRecordset(Tira)
With RS1
.FindFirst "Usuario='" & Text1.Text & "'"
If usuario = Text1.Text Then
End If


If .NoMatch Then
MsgBox ("Este usuario no esta registrado"), vbCritical
Else

If clave = usuario = permiso = "1" Then
permiso1 = permiso1 = Principal.Agregar_Proveedor.Enabled = True
Else
permiso1 = permiso1 = Principal.Agregar_Proveedor.Enabled = False
End If



Principal.Show
Unload Me
End If
End With

Else
MsgBox (" Ingrese el Usuario para ingresar"), vbInformation
Text1.SetFocus
End If

End Sub

Agradezco mucho la ayuda