Como paso este codigo a una funcion?

[jmiguel85]

Private Function Mi_funcion()
Dim rs As Recordset
Set rs = cn.Execute("SELECT n_acceso FROM usuario WHERE nomuser='" & Text1.text & "'")
Dim Ns As Integer
If rs(0) = FALSO Then Ns = 0 Else Ns = 1
Mi_funcion = Ns
End Sub

Tendrias que declararla como function y no como Sub que es un procedimiento, para retornar el valor solo sería:
Mi_funcion = Ns
Saludos.