vb.net - vb.netのリストボックスにデータベースから項目を入力する方法

Question

oop コンセプトを使用してアプリケーションを開発していました。2 つの属性を持つクラスがあり、Get メソッドと Set メソッド、つまり WorkItemNumber と Description があります。

クライアント側には、説明に基づいて作業項目を設定するために使用されるリスト ボックスがあります。データベースから項目を読み取るクラスで作成したコードを次に示します。

Public Sub LoadWorkItem()
    ' Load the data.
    ' Select records.
    Dim oWorkItem As WorkItem = New WorkItem()
    Dim conn As New OleDbConnection
    Dim data_reader As OleDbDataReader
    conn = oWorkItem.GetDbConnection()
    Dim cmd As New OleDbCommand("SELECT * FROM work_item ORDER BY [work item number]", conn)
    data_reader = cmd.ExecuteReader()
    'ListBox1.Items.Clear()
    If data_reader.HasRows = True Then
        Do While data_reader.Read()
            WorkItemNumber = data_reader.Item("work item number")
            Description = data_reader.Item("description")
        Loop
    End If
    data_reader.Close()
    data_reader = Nothing
    cmd.Dispose()
    cmd = Nothing
    conn.Close()
    conn.Dispose()
End Sub

コードを使用してリストボックスに入力するにはどうすればよいですか。また、コードに改善があれば教えてください。ありがとうございます