Question Regarding Stored Procedure????OUTPUTS

I have a stored procedure that I just need to return the output to my program.It is a Select All type statement.I will post my vb code that works when I use both inputs and outputs but not for all output procedure...I dont get it.


Here is the Stored Procedure.....








CREATE procedure dbo.IDXAppt_Settings_NET


(


@SQLADD nvarchar(15)Output,


@SQLDatabase nvarchar(20)Output,


@SQLLogin nvarchar(20)Output,


@SQLPass nvarchar(20)Output


)


as


select


@SQLADD=SQLAddress,


@SQLDatabase=SQLDatabase,


@SQLLogin=SQLLogin,


@SQLPass=SQLPassword





from


Clinic_Settings











GO





Here is the Vb.Net Code........


To retrieve the elements that does not give me an error just gives me no data....








Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click


Dim consql As New SqlConnection("server=myserver,database=APPOINTMENTS;uid=webtest;pwd=webtest")


Dim cmdsql As New SqlCommand





Dim parmSQLAddress As SqlParameter


Dim parmDatabase As SqlParameter


Dim parmLogin As SqlParameter


Dim parmSqlPass As SqlParameter





Dim strtest As String


Dim db As String


Dim login As String


Dim pass As String





cmdsql = New SqlCommand("Appt_Settings_NET", consql)


cmdsql.CommandType = CommandType.StoredProcedure


parmDatabase = cmdsql.Parameters.Add("@SQLData", SqlDbType.NVarChar)


parmDatabase.Size = 20


parmDatabase.Direction = ParameterDirection.Output


db = cmdsql.Parameters("@SQLData").Value





parmLogin = cmdsql.Parameters.Add("@SQLLogin", SqlDbType.NVarChar)


parmLogin.Size = 20


parmLogin.Direction = ParameterDirection.Output


login = cmdsql.Parameters("@SQLLogin").Value





parmSqlPass = cmdsql.Parameters.Add("@SQLPass", SqlDbType.NVarChar)


parmSqlPass.Size = 20


parmSqlPass.Direction = ParameterDirection.Output


pass = cmdsql.Parameters("@SQLPass").Value

















parmSQLAddress = cmdsql.Parameters.Add("@SQLADD", SqlDbType.NVarChar)


parmSQLAddress.Size = 15


parmSQLAddress.Direction = ParameterDirection.Output


strtest = cmdsql.Parameters("@SQLADD").Value


consql.Open()


cmdsql.ExecuteNonQuery()





Label1.Text = strtest


End Sub