主题：数据载入问题

我写了如下代码，想实现的功能时在载入数据时只显示我在条件中要求的，结果运行时却全部显示了：

forms("栽后作业记录").show
If forms("栽后作业记录").opened Then
    Tables("栽后作业记录_Table1").DataSource = DataTables("物料领取记录")
     Tables(物料领取记录).DataTable.LoadFilter = "[使用环节] = '施肥'and '灌溉'and '病虫害预防' and '病虫害处理'and '剪枝'and '土壤耕作'"
    Dim trv As WinForm.TreeView = Forms("栽后作业记录").Controls("TreeView1")
    trv.BuildTree("物料领取记录", "领用部门|领用单位|制单编号")
    Forms("栽后作业记录").Controls("gb1").text ="物料领取记录"
End If