Hola
Puedes crear un array de controles con los option, recorrerlos con un FOR y coger el valor del caption del que esté seleccionado. Algo así:
Código vb:
Ver originalFor i = 0 To 2
If Op(i).Value = True Then 'Si esta seleccionado
QUERY = QUERY & "AND tipo_user ='" & Op(i).Caption & "'" 'Coges el nombre
End If
Next i
Op es el nombre de los controles option e i es el index que tiene cada uno de ellos.
--Saludos--