如何在vb.net的列表框中添加列表项

Question

i am trying to add list items in listbox by the below code if i am wrong please correct me .. the below code is giving weird output.

Try
        Dim adapter As New OleDbDataAdapter
        con = New OleDbConnection(connectionString)
        con.Open()
        Dim dt As New DataTable
        Dim ds As New DataSet
        sqlstr = "select * from partyinfo "
        ds.Tables.Add(dt)
        adapter.SelectCommand = New OleDbCommand(sqlstr, con)
        adapter.Fill(dt)
        lbpartylink.DataSource = ds.Tables(0)
        lbpartyunlink.ValueMember = "partyid"
        lbpartyunlink.DisplayMember = "partyname"
        con.Close()
    Catch ex As Exception
        MsgBox("error found")
    End Try

Answer 1

my fault i wrote

lbpartylink.DataSource = ds.Tables(0)

in place of lbpartyulink.DataSource = ds.Tables(0)