Tio tienes razon

el problema es ese entonces no puedo insertar el f_eliminar u otras funciones dentro del sub Acceso_system para que funciones desde el modulo.
Tendre que hacer esto por ahora
If Not Form1.txtuser = "admin" Then MsgBox "No puede acceder a esta opcion" : Exit Sub antes de llamar a cada funcion pero si alguien tiene una sugerencia, estare esperando