Dim command As New ADODB.command
Dim id As New ADODB.Parameter, checkM As New ADODB.Parameter, rc As New ADODB.Parameter

    On Error GoTo DatabaseError_
    Set command.ActiveConnection = DBconnection
    command.CommandType = adCmdStoredProc
    command.CommandText =  "a_CanAlterProject" 
    id.Type = adInteger
    id.Value = CLng(ProjectID)
    checkM.Type = adInteger
    checkM.Value =  1 
    rc.Direction = adParamReturnValue
    rc.Type = adInteger
    command.Parameters.Append rc
    command.Parameters.Append id
    command.Parameters.Append checkM
    command.Execute
    Select Case rc.Value
        ...
    End Select