Id = Request.QueryString("Id")
Dim myConnection As New SqlConnection(ConfigurationManager.AppSettings("ConnectionString"))
Dim cmd As New SqlCommand("SELECT Username,Topic,Message FROM Topic where Id ='" & _
Request.QueryString("Id") & "'", myConnection)
cmd.CommandType = CommandType.Text
cmd.Connection.Open()
Dim myDA As New SqlDataAdapter(cmd)
Dim ds As New DataSet()
myDA.Fill(ds, "Topic" ...
Go to the complete details ...