Problema Con Dropdownlist

[WilliamsPeru]

yo cargo y lleno los DDL de la siguiente manera

Código:

Private Sub CargaTipoMedio(ByVal pTipoMedio As String)
        Dim ds As New DataSet()
        Dim da As New SqlDataAdapter()
        da.SelectCommand = New SqlCommand()
        da.SelectCommand.Connection = cn
        da.SelectCommand.CommandText = "GPETAB_TipoMedioDDL_S"
        da.SelectCommand.Parameters.Add("@CodEmpresa", SqlDbType.Char, 6).Value = Session("CodEmpresa")
        da.SelectCommand.CommandType = CommandType.StoredProcedure
        da.Fill(ds, "TipoMedio")
        ddlTipoMedio.DataSource = ds.Tables("TipoMedio")
        ddlTipoMedio.DataBind()
        If pTipoMedio.Trim.Length > 0 Then
            ddlTipoMedio.Items.FindByValue(pTipoMedio).Selected = True
        End If
End Sub

Mando pTipoMedio ="" o pTipoMedio="R"
--->dependiendo si es que quiero cargarlo totalmente o seleccionar alguno

da.SelectCommand.CommandText = "GPETAB_TipoMedioDDL_S"
--> invoco al store procedure que contendra toda la data

Tener en cuenta que EN EL DDL tiene que poner en las propiedades
Datatexfield el campo que quieres que aparesca en el drop NomTipoMedio
DatavalueField el campo que sera la referencia CodTipoMedio