Visual Basic - no me encuentra la tabla

Hola a tod@s:

Alguien sabe porque no me encuentra la tabla?

nomTabla = DB.TableDefs(cant_tablas).Name
Set rs1 = DB.OpenRecordset("SElLECT Creador from nomTabla ", dbOpenDynaset)

Tengo que ir mirando las tablas y si cumple que las tablas empiezan por "cdl" realizar la select.
Debugeando me da error en la sentencia select y no se porque, si alguien me podria ayudar se lo agradeceria mucho.

He intentado poner esto:

Set rs2 = DB.OpenRecordset("SELECT distinct Subtema from " & nomTabla & "where Tema ='" & cmbTema.Text & "'", dbOpenDynaset)

Pero ahora me da un error, alguien sabe porque? muchas gracias

poneme el error asi me guio mas claramente