Pardon VB6 da çalıştığınızı anlamamışım. VB6'da Dlookup , DCount gibi etki alanı komutları yoktur. Ondan dolayı o kod çalışmaz.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.