ต้องการรับค่าจาก textbox เพื่อนำไปแสดงใน datalist ครับ

ListView1.View = View.Details
ListView1.Columns.Add("ID")
ListView1.Columns.Add("NAME")
ListView1.Columns.Add("PHONE")
Dim item As New ListViewItem(New String() {TextBox1.Text, TextBox2.Text,TextBox3.Text})
ListView1.Items.Add(item)

        Dim strSQLconn As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=C:\Inetpub\wwwroot\tooling1\App_Data\tooling.mdb"

        Dim objConn As OleDbConnection
        Dim dtAdapter As OleDbDataAdapter
        Dim ds As New DataSet()
        Dim strSQL As String

        objConn = New OleDbConnection(strSQLconn)
        objConn.Open()

        strSQL = "SELECT * FROM usert where en = " & TextBox1.Text & ""
        dtAdapter = New OleDbDataAdapter(strSQL, objConn)
        dtAdapter.Fill(ds, "usert")

        ListBox1.Items.Add(ds.Tables("usert").Rows(0)("name").ToString & ds.Tables("usert").Rows(0)("phone_number").ToString)