r.Items.Add(dt.Rows(ctr).Item("choice1"))
r.Items.Add(dt.Rows(ctr).Item("choice2"))
r.Items.Add(dt.Rows(ctr).Item("choice3"))
r.Items.Add(dt.Rows(ctr).Item("choice4"))
Add one of these line below your code
r.Items.FindByValue(dt.Rows(ctr).Item("correct").ToString()).Selected = True
or
r.SelectedValue = dt.Rows(ctr).Item("correct").ToString()
if you want to use selected column as index then
r.SelectedIndex = Convert.ToInt32(dt.Rows(ctr).Item("selected"))