SelectValue não funciona

Olá pessoal, estou precisando de ajuda

essa linha abaixo que está em negrito não está trazendo os dados da combo,

essa função mostra dados é disparada quando seleciono um item na listbox

 

    Private Sub lstatividades_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstatividades.SelectedIndexChanged

 

        MostraDados(lstatividades.SelectedItem(0))

    End Sub

 

    Private Sub MostraDados(ByVal wID As Long)

        Dim ds As New DataSet

        Dim Busca As New clsDados

 

        ds = Busca.RetornarDataSet("SELECT ID_ATIV, ID_GRP_ATIV, DESC_ATIV, FREQUENCIAATUAL," & _

                                   " FREQUENCIAIDEAL, OBJETIVO, TAREFA, UNIDADESENVOLVIDAS, " & _

                                   " BASEINFORMACOES, PROCEDIMENTOS, ID_RESP1, ID_RESP2 " & _

                                   " FROM Tbl_Atividades WHERE ID_ATIV = " & wID)

 

        If ds.Tables(0).Rows.Count > 0 Then

            Me.cmbGrupo.SelectedValue = Val(ds.Tables(0).Rows(0).Item(1))

            Me.txtDesc.Text = ds.Tables(0).Rows(0).Item(2)

            Me.cmbFreqAtual.SelectedValue = Val(ds.Tables(0).Rows(0).Item(3))

            Me.cmbFreqIdeal.SelectedValue = Val(ds.Tables(0).Rows(0).Item(4))

            Me.txtObjetivo.Text = ds.Tables(0).Rows(0).Item(5)

            Me.txtTarefa.Text = ds.Tables(0).Rows(0).Item(6)

            Me.txtUnidadesEnvolvidas.Text = ds.Tables(0).Rows(0).Item(7)

            Me.txtBaseInformacoes.Text = ds.Tables(0).Rows(0).Item(8)

            Me.txtProcedimentos.Text = ds.Tables(0).Rows(0).Item(9)

            Me.cmbResp1.SelectedValue = ds.Tables(0).Rows(0).Item(10)

            Me.cmbResp2.SelectedValue = ds.Tables(0).Rows(0).Item(11)

        End If

 

    End Sub