Procedimiento scalar

declarar variable escalar

Dim rr As Integer
Try
' Creamos el comando
Dim cmd As New SqlCommand()
' Indicamos la consulta T-SQL con parámetros que vamos a ejecutar
cmd.CommandText = "SELECT cod_familia FROM FAMILIA WHERE (f_descripcion = @familia)"
' Añadimos el parámetro de entrada requerido
With cmd.Parameters
rr = SUBFAMILIADataGridView.CurrentRow.Index
.AddWithValue("@codigo", SUBFAMILIADataGridView.Rows(rr).Cells(1).Value.ToString)

End With
' Ejecutamos la consulta
' aca kiero que me asigne el valor pero lo logro hacerlo
TextBox1.Text = ExecuteAction(cmd)

MessageBox.Show("encontrado.")

Catch ex As Exception
' Se ha producido un error
MessageBox.Show(ex.Message)
End Try


tengo este codigo lo que hace es enviar una descripcion y busque el codigo de dicha descripcion al obtenerla kiero que se muestre en en un texbox pero me sale el error pero funciona en SQL a la perfeccion cuando lo ejecuto pero no se como realizarlo en visual studio