Could you guys help me to improve this function?
Thnk you all

The Procedure

CREATE PROCEDURE JCUserYes (in :tusert CHAR(30))
AS BEGIN
UPDATE UMC_JC SET TValue = 'Yes' WHERE TUser = :tusert;
END;

The Function on MS Access, V2000

Function UMC_User()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim NU
NU = NetworkUserName
cnn.Open "Provider=PervasiveOLEDB;Data Source=UMC"
With cmd
.ActiveConnection = cnn
.CommandText = "JCUserYes"
.CommandType = adCmdStoredProc
Set Param1 = cmd.CreateParameter("tusert Char(30)", NU )
cmd.Parameters.Append Param1
.Execute
End With
End Function