Fai così:
setti la variabile

var=Trim(rs("campo"))

Poi

select case var
Case "restauro"
<input type='radio' name='campo' value='restauro' checked>

Case "edile"
<input type='radio' name='campo' value='edile' checked>

Case Else
<input type='radio' name='campo' value='altro' checked>
End Select

Prova con " e ', non ricordo se utilizzare gli apici o le virgolette.

Ciao