o select que esta criado ele aparece no DW você consegue executar ele lá dentro tipo ele retorna resultado pra vc? é outra coisa testa é ..., Djornal.ActiveConnection = MM_produtos_STRING
ta vendo essa linha?
Djornal.Source = "SELECT * FROM jornal WHERE destaque = '" + Replace(Djornal__MMColParam, "'", "''") + "'"
coloca essa pra mim ver uma coisa
Djornal.Source = "SELECT * FROM jornal
ai se coloca se o erro aparece pra mim ver aqui se aparecer valeu!
Djornal.CursorType = 0
Djornal.CursorLocation = 2
Djornal.LockType = 1