Visual Basic - recordset

hola tengo una variable string , donde meto una consulta sql,
y el primer campo es el contenido de una celda excel.....

dim sql as string
dim campo1 as string

campo1 = sheet(1).cells(1,1).value

sql= "select " + campo1 + " from tabla where fecha between "

luego abro una conexion odbc correcta, y abro el recordset y cuando lo abro me peta....

si cambio la vaiable campo1 por el literal 'productos' no me da error...

¿ a q sera debido?

sql= "select ' " + campo1 + " ' from tabla where fecha between "

Pon una comilla simple antes y después de las comillas dobles