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

我正试图通过下面的代码在listbox中添加列表项 如果我错了，请纠正我。。 下面的代码给出了奇怪的输出

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

我写的是我的错

lbpartylink.DataSource = ds.Tables(0)

代替

---

lbpartyulink.DataSource=ds.Tables（0）

您得到的奇怪结果是什么？你能说得更具体些吗？另一方面，如果从未使用过数据集，为什么还要创建它呢？