Search records(vb.net 2003)

 Public Sub search_Engine()

        Dim objRead As OleDb.OleDbDataReader
        Dim cnSQL = New OleDbConnection(con)
        cnSQL.Open()
        Try
            Dim cmd = New OleDb.OleDbCommand("SELECT * FROM tblitem WHERE itemno = '" & txtino.Text & "'", cnSQL)
            objRead = cmd.ExecuteReader
            While objRead.Read

                txtino.Text = objRead(0)
                txtdes.Text = objRead(1)
                txtunit.Text = objRead(2)
                txtUP.Text = objRead(3)

                cnSQL.Close()
                Exit Sub
            End While