ControlSource

Estoy generando código para modificar algunas fórmulas automáticamente

como:

mitextbox.controlSource = "= date()"
mitextbox.controlSource = "= date()-1"

Sin embargo al intentar hacer una búsqueda con un Dbusq me da un error de
sintaxis:

cadena = "=Dlookup(""""micampo"""";""""mitabla"""")"
mitextbox.controlSource= cadena

He sustituido las comillas para que en cadena quede almacenada la cadena
correcta, pero al asignarlo al controlSource me genera el error de

Gracias por vuestra atención. No creo que la solución ande muy lejos, pero
me estoy volviendo loco y no entiendo por qué...