Still Confused As To How To Accomplish This SQL Server Procedure Problem

I have tried and tried but I get all types of errors.Someone I hope has done this and perhaps can explain in more detail how to get this done.


I have my Store Procedure....


I added output to the data I will be needing. at the bottom I added my code....I need to some how run this procedure...Get all the info in the select statement and display it in a form.I want to use a variable for each field...Ihave no clue why my code does not work...


CREATE procedure dbo.App_Login_NET


(


@LoginName nvarchar(15),


@Password NvarChar(15)


)


as


select


UserName OUTPUT,


UserPassword OUTPUT,


UserClinic OUTPUT,


UserTester OUTPUT


from


Clinic_users


where


UserName = @LoginName


and


UserPassword = @Password


GO





When I type in a 'correct Username/Password' it gives me this error


Procedure or function Appt_Login_NET has too many arguments specified. I just want to contain the values in separte variables for later use...Also how do you use rowcount????








my Code





Private Sub Button1_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.ServerClick


Dim con As New SqlConnection("Server=myserver;database=APPOINTMENTS;uid=webtest;pwd=webtest")


Dim cmd As New String("Appt_Login_NET")


Dim mycommand As New SqlCommand(cmd, con)





mycommand.CommandType = CommandType.StoredProcedure





mycommand.Parameters.Add("@LoginName", SqlDbType.NVarChar, 12)


mycommand.Parameters("@LoginName").Direction = ParameterDirection.Input


mycommand.Parameters("@LoginName").Value = txtUser.Value


mycommand.Parameters.Add("@Password", SqlDbType.NVarChar, 12)


mycommand.Parameters("@Password").Direction = ParameterDirection.Input


mycommand.Parameters("@Password").Value = txtPass.Value


mycommand.Parameters.Add("UserClinic", SqlDbType.Int)


mycommand.Parameters("UserClinic").Direction = ParameterDirection.Output





con.Open()


mycommand.ExecuteNonQuery()


'str = cmd.Parameters("UserClinic").Value


Label1.Text = mycommand.Parameters("UserClinic").Value


con.Close()





End Sub