DA From Proc

 1Dim conn As New Data.SqlClient.SqlConnection(ConnectionStr)
 2        objCommand.CommandText = "Pr_Person_Get_BySearch"
 3        objCommand.CommandType = CommandType.StoredProcedure
 4        objCommand.Connection = conn
 5        conn.Open()
 6        Data.SqlClient.SqlCommandBuilder.DeriveParameters(objCommand)
 7        Dim item As Data.SqlClient.SqlParameter
 8        For Each item In objCommand.Parameters
 9            Response.Write("<br>" + item.ParameterName() + "||" + item.SqlDbType.ToString() + "||" + item.Direction.ToString())
10        Next
11        conn.Close()