Problemas con funcion

[bbjb]

Quiero construir una sql dependiendo del campo seleccionado en un formulario, de tal manera que si este campo es coche obtendre:

If campo = 'automovil' Then
  s_tabla   := 'automovil'
  s_campo := 'aut_descri'
  s_where  := 'aut_codigo' 
Else If campo = 'camion' Then ...

Con estas tres variables puedo construir la sql de la siguiente manera:

   s_sql := ' Select ' + s_campo + ' From ' + s_tabla + ' Where ' + s_where  + ' =  1'

Este metodo lo puedo utilizar para el resto de tablas utilizadas en el programa.

Esta función la he incluido en un módulo general donde están todas las funciones y procedimientos genéricos.
Entre las diversas y múltiples opciones que existan, está la de crear variables globales y un sinfin más que harán de este método el menos adecuado, pero recuerda que vengo de programar en 4gl y estoy algo atrofiado, así que no te me riñas por favor.