คำถามเกี่ยวกับ listbox ทำยังไงถึงจะดึงข้อมูลเฉพาะใน listbox ได้หรอคะ asp.net

Protected Sub FillListBox() <===== ดันนี้เป็น Sub ในการใช้ค้นหาข้อมูลชื่อลูกค้ามาลง Listbox ค่ะ
        strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DbRegister.accdb"
        con.ConnectionString = strcon
        con.Open()
        Dim sql As String = "SELECT CustomerName, CustomerSurname , CustomerType FROM DbCustomer WHERE CustomerName Like '%" & Me.findtxt.Text & "%'"

        'Dim dtAdapter = New OleDbDataAdapter(sql, con)
        'dtAdapter.Fill(dt)

        'dtAdapter = Nothing
        'con.Close()
        'con = Nothing

        'ListBox1.DataSource = dt
        ''ListBox1.DataTextField = "CustomerName" <==== ตรงนี้มันใช้ไม่ได้เพราะมันดึงได้ ฟิลเดียว(ลองดึง 2 ฟิลมันerror)
        'ListBox1.DataValueField = "CustomerType"
        'ListBox1.DataBind()



        cmd = New OleDbCommand(sql, con)
        Dim adapter As New OleDbDataAdapter(cmd)
        ds = New DataSet()
        adapter.Fill(ds, "Cuslist")
        row_count = ds.Tables("Cuslist").Rows.Count
        Dim CusName As String = ""
        Dim CusSur As String = ""
        Dim CusFull As String
        Dim CusType As String = ""
        ListBox1.Items.Clear()
        For i = 0 To ds.Tables("Cuslist").Rows.Count - 1 <====ตรงนี้วนลูปเพื่อดึงข้อมูลมาลง listbox โดยต้องดึงมา 3 ฟิล
            CusName = ds.Tables("Cuslist").Rows(i)("CustomerName")
            CusSur = ds.Tables("Cuslist").Rows(i)("CustomerSurname")
            CusType = ds.Tables("Cuslist").Rows(i)("CustomerType")
            CusFull = CusName & "  " & CusSur & "  " & CusType
            ListBox1.Items.Add(CusFull)
            
        Next
        


       
        If (ListBox1.Items.Count > 0) Then
            ListBox1.SelectedIndex = 0
        End If
    End Sub