Radio Button List

I have a radio button list that bis getting populated with the attached code

I am going to be passing in a QueryString called "ct"

I want the radio buttoin to be selected if its value = Request.QueryString("ct")

Dim conn As SqlConnection
        conn = New SqlConnection(AppSettings("ConnEXO"))
        Dim cmd As SqlCommand = New SqlCommand
        cmd.Connection = conn
        conn.Open()
 
        Dim sql As String
        sql = "select ContentTypeID, Description from dbo.ContentTypes "
        sql = sql & "WHERE Active = 1 "
        cmd.CommandText = sql
 
      
        Dim dr As SqlDataReader
        dr = cmd.ExecuteReader
        rblContentType.DataSource = dr
        rblContentType.DataBind()

Select allOpen in new window