ASP.Net/VB.Net - Stored Procedure From Sql Server

ALTER PROCEDURE [???].[SELECT_CREATE_TERM] 

@P_ADDRESS VARCHAR(50) OUTPUT,
@P_CITY VARCHAR(30) OUTPUT,
@P_CODE VARCHAR(30) OUTPUT,
@P_ID INT OUTPUT,
@P_NAME VARCHAR(30) OUTPUT,
@P_TERMINALNUMBER VARCHAR(50) OUTPUT,
@P_ACQUIRERID VARCHAR(255) OUTPUT,
@P_TERM VARCHAR(50)

AS

BEGIN
SELECT DISTINCT @P_ADDRESS = a.address,@P_CITY = a.city,@P_CODE = a.code,
                @P_ID = a.id,@P_NAME = a.name, @P_TERMINALNUMBER = b.terminalnumber,@P_ACQUIRERID = e.acquirer_id 
       FROM merchants a, net_terms b, terminals e 
           WHERE b.terminalnumber = @P_TERM
           AND b.merchant_id = a.id 
           AND e.merchantnumber = a.code 
           AND e.terminalnumber = b.terminalnumber 
           AND e.net_term_id = b.id 
END

 If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
                 
             
            Dim cmdSearch As New SqlCommand
            cmdSearch.Connection = Conn
            cmdSearch.CommandText = "SELECT_CREATE_TERM"
            cmdSearch.CommandType = CommandType.StoredProcedure
            
            cmdSearch.Parameters.Add(New SqlParameter("@P_ADDRESS", SqlDbType.VarChar, 50)).Direction = ParameterDirection.Output
            
            cmdSearch.Parameters.Add(New SqlParameter("@P_CITY", SqlDbType.VarChar, 30)).Direction = ParameterDirection.Output
            
            cmdSearch.Parameters.Add(New SqlParameter("@P_CODE", SqlDbType.VarChar, 30)).Direction = ParameterDirection.Output
            
            cmdSearch.Parameters.Add(New SqlParameter("@P_ID", SqlDbType.Int)).Direction = ParameterDirection.Output
            
            cmdSearch.Parameters.Add(New SqlParameter("@P_NAME", SqlDbType.VarChar, 30)).Direction = ParameterDirection.Output
            
            cmdSearch.Parameters.Add(New SqlParameter("@P_TERMINALNUMBER", SqlDbType.VarChar, 50)).Direction = ParameterDirection.Output
            
            cmdSearch.Parameters.Add(New SqlParameter("@P_ACQUIRERID", SqlDbType.VarChar, 255)).Direction = ParameterDirection.Output
            
            cmdSearch.Parameters.Add(New SqlParameter("@P_TERM", SqlDbType.VarChar, 50)).Direction = ParameterDirection.Input
            cmdSearch.Parameters("@P_TERM").Value = iITerm
            
                 
            Dim adapPays As New SqlDataAdapter
            adapPays.SelectCommand = cmdSearch
            Dim dsPays As New DataSet
            adapPays.Fill(dsPays)
            
            MsgBox(dsPays.Tables(0).Rows.Count)