Cita: Private Sub NombreDeLaFuncion(Ns as integer)
Dim rs As Recordset
Set rs = cn.Execute("SELECT n_acceso FROM usuario WHERE nomuser='" & Text1.text & "'")
If Ns = 1 Then 'Si el boolean esta activo
MsgBox "Consulta SQL realizada satisfactoriamente"
'###Ejecuto una funcion de mantenimiento###
Else
MsgBox "No puede realizar la consulta SQL, no tiene permiso"
End If
'Y aca por ej pones, If Ns=2 Then....blablabla
End Sub
La Funcion se la llama de la siguiente manera: NombreDeLaFuncion(Valor de Ns)
siendo NombreDeLaFuncion, valga la redundancia, el nombre de la funcion y el valor que toma NS entre ()