Bucar por columna

ok miren estoy tratando de hacer una consulta general que la pueda usar para
varias consultas, es decir que en mi WHERE EL CAMPO PUEDA SER SELECCIONADO
POR EL USUARIO ES DECIR ALGO ASI
STRBusGen = "Select * From TABLA Where '" + VCampos + "' LIKE'" &
VBusGen & "%'"
COMO PUEDEN VER "VCAMPO" ES ESPECIFICADO DE UN VALOR QUE EL CLIENTE
SELECCIONA DE UN COMBO, ALMOMENTO DE GENERAR LA CONSULTA NO PASA YA QUE LA
CADENA QUEDA ASI.

STRBusGen = "Select * From TABLA Where 'VALOR' LIKE'VALOR"%'"

CUANDO DEVERIA DE QUEDAR ASI PARA QUE FUNCIONE:

STRBusGen = "Select * From TABLA Where VALOR LIKE'VALOR"%'"

AGRADECERIA SU APOYO EL PROBLEMA ES AL CONCATENAR EL VALOR CON LOS ' '
NO SE SI SE PUEDAN ELIMINAR DE ALGUNA FORMA

GRACIAS

JCAR