Dropdownlist i bindovanje- Problem...

Code:

        Dim myConnection As SqlConnection = New SqlConnection("Data Source=(local);" + "Initial Catalog=XXXXX;" + "Integrated Security=SSPI;")
        Dim MyCommand = New SqlCommand("GrupeArtikala", myConnection)
        MyCommand.CommandType = CommandType.StoredProcedure

        Dim StrSelect As String
        StrSelect = "Izaberi"

        Dim da As SqlDataAdapter = New SqlDataAdapter()
        da.SelectCommand = MyCommand
        Dim ds As New DataSet
        da.Fill(ds, "Grupe")

        Try
            myConnection.Open()
            Grupa.DataSource = ds
            Grupa.DisplayMember = "NazivGrupe"
            Grupa.ValueMember = "GrupeID"
            Grupa.Items.Insert(0, New ListItem(StrSelect, 0))
            Grupa.SelectedIndex = 0



        Finally
            myConnection.Close()
        End Try

Code:
 Grupa.DataMember = "imeTvojeTabeleudatasetu";

Code:

Dim myConnection As SqlConnection = New SqlConnection("Data Source=(local);" + "Initial Catalog=XXXXX;" + "Integrated Security=SSPI;")
        Dim MyCommand = New SqlCommand("GrupeArtikala", myConnection)
        MyCommand.CommandType = CommandType.StoredProcedure


        Dim da As SqlDataAdapter = New SqlDataAdapter()
        da.SelectCommand = MyCommand
        Dim objDataTable = New DataTable
        da.Fill(objDataTable)

        Try
            myConnection.Open()
            Grupa.DataSource = objDataTable
            Grupa.DisplayMember = "NazivGrupe"
            Grupa.ValueMember = "GrupeID"
            Grupa.SelectedIndex = 0

        Finally
            myConnection.Close()
            da.Dispose()
            da = Nothing
        End Try