Listbox ดึง Field จาก SQL มากกว่า 1 Field ยังไงครับ

Protected Sub btn_go_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_go.Click
        Dim strSQL As String

        strSQL = "SELECT Major.Major_Id,Major.Major_Name,Major.Course_Id,Major.Sector_Id,"
        strSQL += " Major.Faculty_Id,Major.Receive,Major.EducationBG_Id,Major.Candidates,"
        strSQL += " EducationBG.EducationBG_Id,EducationBG.EducationBG_Detail FROM Major,EducationBG"

        If (Rdo1.Checked = True) Or (Rdo2.Checked = True) Then

            strSQL += " WHERE(Major.EducationBG_Id ='" & 1 & "')"
        ElseIf Rdo3.Checked = True Then
            strSQL += " WHERE(Major.EducationBG_Id = EducationBG.EducationBG_Id)"
            strSQL += " AND (EducationBG.EducationBG_Detail LIKE'%" & Txt_LessonPlan.Text & "%')"
        Else
            MsgBox("คุณยังไม่ได้เลือกวุฒิที่ใช้ในการสมัคร", MsgBoxStyle.Critical)
        End If


        strSQL += " ORDER BY Major.Major_Id"

        Dim ds As New DataSet

        da = New SqlDataAdapter(strSQL, conn)
        da.Fill(ds, "Major")

        With Me.LstChoice
            .DataSource = ds.Tables("Major")
            .DataTextField = "Major_ID"
            .DataValueField = "Major_Id"
            .DataBind()
        End With