Dim connectionstring As String = "Data Source=REZA-PC;Initial Catalog=text;Integrated Security=True"

Dim con As New SqlConnection(connectionstring)
Dim query As String = "select * from news where id=@id"
Dim cmd As New SqlCommand(query, con)
cmd.Parameters.AddWithValue("@id", Request.QueryString("code"))
con.Open()

Dim dr As SqlDataReader = cmd.ExecuteReader()
dr.Read()
lblcontent.Text = dr("content").ToString()
lbltitle.Text = dr("title").ToString()
con.Close()

سلام
کسی میتونه به من کمک کنه که چرا این کد خطا میده؟

با تشکر