主题：求助关于字符串函数

 我写了一段循环生成查找公式的代码，运行出现错误，提示 And 后面缺少操作数.想了好久也没想明白，求高手

               tkj.text = e.node.text
                lj = e.node.FullPath
                mc = e.node.FullName
                czl = lj.split("\")
                lmc = mc.split("\")
                For sl = 0 To lmc.length - 1
                    czz = czz & "[" & lmc(sl) & "] = '" & czl(sl) & "' And "
                Next
                    czz = czz.Trimend(" And ")
                    czdj = DataTables(bmc).Find(czz)
                    Tables("产品报价单").Current("密度")=czdj("密度")
                    Tables("产品报价单").Current("材料单价")=czdj("单价")