Visual Basic.NET - Alguna idea de como pasar datos de una BD a un ListBox

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAceptar.Click

    Dim Comando As New OleDb.OleDbCommand("SELECT * FROM Usuarios WHERE [Código]= '" & CódigoTextBox.Text & "'", Conexion)

    Dim DataReader As OleDb.OleDbDataReader

    Me.Conexion.Open()

    DataReader = Comando.ExecuteReader()

    While DataReader.Read

        LboListaCompra.Items.Add(DataReader("Nombre"))

    End While

    DataReader.Close()

    Me.Conexion.Close()

End Sub

DataReader = Comando.ExecuteReader()

Dim Comando As New OleDb.OleDbCommand("SELECT * FROM Usuarios WHERE [Código]= '" & CódigoTextBox.Text & "'", Conexion)

LboListaCompra.DataSource = DR -------> DataReader

LboListaCompra.DataTextField = "nombre"

LboListaCompra.DataValueField = "id"

LboListaCompra.DataBind()

While DataReader.Read

    LboListaCompra.Items.Add(newListItem(Server.HtmlDecode(DR.Item("nombre")), DR.Item("Id")) )

End While