Mostrar datos en un textbox

¡ Hola !
quisiera saber como mostrar datos en un textbox en visual .net extrayendo datos desde un procedimiento almacenado, tengo el siguiente codigo

Dim odatareader As SqlDataReader
Con.Open()
Dim com As New SqlCommand
com.Connection = Con
com.CommandType = CommandType.StoredProcedure
com.Parameters.Add(New SqlParameter("@CodA", SqlDbType.VarChar)).Value = TextBox1.Text
com.CommandText = "Sp_MosAFP"
odatareader = com.ExecuteReader

TextBox2.Text = com.Parameters("DesAFP".ToString).Value
odatareader.Close()
Con.Close()


y este es mi procedimiento almacenado

ALTER PROCEDURE Sp_MosAFP
(@CodA varchar(9))
AS
select DesAFP from Dt_AFP
where CODAFP=@CodA
RETURN

el problema es que no puedo mostrar el dato en el textbox... gracias