Visual Basic 2012でmdbデータベースのデータをリストボックスに取り込むにはどうすればよいですか？

Question

私はコンピューティング割り当てのためにVisual Basic 2012で学生プロフィールを作成しています。

私にはコンピューティングとビジネスの2つのコースが入ったコンボボックスがあります。 （フォームの右側に画像が添付されています）。また、一度押すListボタンは、コンボボックスで選択したコースに従って、.mdbデータベースの生徒を表示する必要があります。私は（私が持っている）私のデータベースからの留学生とのリストボックスに移入するにはどうすればよい

？新ADODB.Recordsetの 点心などの新しいADODB.Connectionの 薄暗いRSとして

パブリック・クラスのForm1 点心共同整数

として

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    co.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Documents\ProfileDB.mdb;Persist Security Info=False") 
    rs.Open("Select * from ProfileTBL", co, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic) 
    Combo1.Items.Add("Computer Technology") 
    Combo1.Items.Add("Business Management") 
    display() 
End Sub 

Sub display() 
    TextBox1.Text = rs.Fields.Item("FirstName").Value 
    TextBox2.Text = rs.Fields.Item("Surname").Value 
    Combo1.Text = rs.Fields.Item("Course").Value 
    TextBox4.Text = rs.Fields.Item("Phone").Value 
End Sub 


Private Sub addnew_Click(sender As Object, e As EventArgs) Handles addnew.Click 
    rs.AddNew() 
    clear() 
End Sub 

Sub clear() 
    TextBox1.Text = "" 
    TextBox2.Text = "" 
    Combo1.Text = "Select Course" 
    TextBox4.Text = "" 
End Sub 

Private Sub Savebtn_Click(sender As Object, e As EventArgs) Handles Savebtn.Click 
    rs.Fields("FirstName").Value = TextBox1.Text 
    rs.Fields("Surname").Value = TextBox2.Text 
    rs.Fields("Course").Value = Combo1.Text 
    rs.Fields("Phone").Value = TextBox4.Text 
    MsgBox("Data is saved successfully.", vbInformation) 
    rs.Update() 
End Sub 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    rs.MovePrevious() 
    If rs.BOF Then 
     rs.MoveLast() 
     display() 
    Else 
     display() 
    End If 
End Sub 


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    rs.MoveNext() 
    If Not rs.EOF Then 
     display() 
    Else 
     rs.MoveFirst() 
     display() 
    End If 
End Sub 

Private Sub deletebtn_Click(sender As Object, e As EventArgs) Handles deletebtn.Click 
    confirm = MsgBox("Do you want to delete the Student Profile", vbYesNo + vbCritical, "Deletion Confirmation") 
    If confirm = vbYes Then 
     rs.Delete() 
     MsgBox("Record has been Deleted successfully", vbInformation, "Message") 
     rs.Update() 
     Refresh() 
     clear() 

    Else 
     MsgBox("Profile Not Deleted!", vbInformation, "Message") 
    End If 
End Sub 



Private Sub findbtn_Click(sender As Object, e As EventArgs) Handles findbtn.Click 
    rs.Close() 
    rs.Open("Select * from ProfileTBL where Phone='" + TextBox4.Text + "'", co, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic) 
    If Not rs.EOF Then 
     display() 
     reload() 
    Else 
     MsgBox("Record Profile not found!", vbInformation) 
    End If 

End Sub 

Sub reload() 
    rs.Close() 
    rs.Open("Select * from ProfileTBL", co, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic) 
End Sub 


Private Sub listbtn_Click(sender As Object, e As EventArgs) Handles listbtn.Click 


End Sub 

を確認：

以下でより正確には、私がこれまで持っているコードです。

エンドクラス

Answer 1

は、以下のようなものでした：

Private Sub btnListStudents_Click(sender As Object, e As EventArgs) Handles btnListStudents.Click 
    Dim dt As New DataTable() 
    dt.Columns.AddRange(New DataColumn() {New DataColumn("StudentId", GetType(Integer)), 
              New DataColumn("StudentName", GetType(String)), 
              New DataColumn("StudentCourse", GetType(Integer))}) 
    dt.Rows.Add(1, "John Hammond", 555) 
    dt.Rows.Add(2, "Mudassar Khan", 666) 
    dt.Rows.Add(3, "Suzanne Mathews", 777) 
    dt.Rows.Add(4, "Robert Schidner", 888) 
    dt.Rows.Add(5, "John Doo", 999) 

    'Clear first 
    lstStudents.Items.Clear() 

    'Fill names into the listbox 
    For Each row As DataRow In dt.Rows 
     lstStudents.Items.Add(row("StudentName")) 
    Next row 
End Sub