[Resolvido] Adicionar coluna no GridView

Estou tentando adicionar uma coluna no gridview via código, de acordo com o que é selecionando no dropdownlist existente na página, essa coluna deve ou não ser exibida.

Mas não estou conseguindo chamar o campo que esta na procedure, para popular essa coluna.

Segue abaixo o código que popula o gridview e tambem da funçao que chama a procedure.

Private Sub gridBind()

Dim oPJ As New ClasseTeste
Dim oDs As DataTable = oPJ.Busca(ViewState("SortExpr")).Tables(0)

Dim oDv As DataView = oDs.DefaultView

ResetPageIndex(gridResult, oDv)

gridResult.DataSource = oDv

If dropdownlist.SelectedValue <> 0 Then

Dim teste As New BoundColumn

teste.DataField = oDs.Columns(9).ColumnName("Especialidade").ToString

gridResult.Columns.Add(teste)

End If

-----Função da ClasseTeste que executa a procedure e faz a busca ------

Public Function Busca(ByVal order As String) As DataSet
Dim cnn As New SqlConnection

cnn.ConnectionString = _stStringConexao

Dim cmd As New SqlCommand("st_teste", cnn)

With cmd

.CommandType = CommandType.StoredProcedure

.Parameters.Add("@stRazaoSocial", SqlDbType.VarChar, 100).Value = CSDb.CNull(_stRazaoSocial)

.Parameters.Add("@stEndereco", SqlDbType.VarChar, 100).Value = CSDb.CNull(_stEndereco)

.Parameters.Add("@stEstadoID", SqlDbType.VarChar, 2).Value = CSDb.CNull(_stEstadoID)

.Parameters.Add("@EspecialidadeID", SqlDbType.VarChar, 100).Value = CSDb.CNull(_inEspecialidadeID)

End With

Dim adp As New SqlDataAdapter(cmd)

Dim sdr As New DataSet

adp.Fill(sdr, "lista")

cnn.Close()

Return CType(sdr, DataSet)

End Function