ADO.NET :: Sql Select Results To Messagebox / Label

For example I want to get the price of a particular item from table items. I created the connection string and the cmd for the search and put the result in an sqldatareader. How do I put the result in a string so I can use it later? Code so far of what I've done: (Code is in Vb.net)

Dim
conn =
conn As SqlConnectionNew SqlConnection("Data
Source=ComputerSQLEXPRESS;Initial Catalog=database;User ID=id; password=password")
Dim cmdSelect
As
New SqlCommand("SELECT Price FROM Items WHERE Code = Item1, conn)
conn.Open()
dtrReader = cmdSelect.ExecuteReader
While dtrReader.Read
lblPrice.Text = dtrReader.GetDouble(0).ToString
End
While
dtrReader.Close()
conn.Close()

Instead of the price the table is left empty.