Pass the value of the radio when checked as variable
example
Dim ValueCheck as String = ""
If Radio.Checked = true Then ValueCheck = "S" Else ValueCheck = "N"
cmd.CommandText = "INSERT INTO PTPropertyType (PTTypeName, PTType, PTSM, PTAudit, PTUser) VALUES ('" & name.Text & "', '" & type.Text & "', '" & ValueCheck & "', GetDate(), '" & Session("UserInfo") & "')"