Merhaba resimde gözülen datagrid yerine listbox kullanmak istiyorum textboxdan girilen kelime aşagıda cıkıyor var ise Bunu listbox nasıl yaparım ?

Public

Public Class 
    Dim baglan As OleDbConnection
    Dim komut As New OleDbCommand
    Dim data As OleDbDataReader

Textbox içine yazılan kod

 

Dim yol As String = Application.StartupPath.ToString()
        Dim baglan As New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source=" & yol & "\vt1.mdb")
        baglan.Open()
        komut.Connection = baglan
        komut.CommandType = CommandType.Text
        komut.CommandText = "insert into tablo (sekle,sanlam) values (p1)"
        komut.CommandText = "select * from tablo where sekle like p1"
        komut.Parameters.Add("p1", "%" & TextBox1.Text & "%")
        data = komut.ExecuteReader
        komut.Parameters.Clear()
        Dim tablo As DataTable = New DataTable
        tablo.Load(data)
        DataGrid1.DataSource = tablo
        data.Close()
        baglan.Close()