关于查询的问题？？？？

dbbygzy

我要做一个这样的查询，我们是大的林业局，下面又分了林场，我想做的是，把各林场的资料都输入后，在用组合框查询的时候，选择林业局，所有林场的资料就全部能从子窗体显示出来。请各们大侠们帮帮们！！！！！！！！
Private Sub Command46_Click()
On Error GoTo Err_Command46_Click
   Dim Str As String
    Str = ""
    If Not IsNull(Me.单位) Then
         Str = Str & "([单位] like '*" & Me.[单位] & "*') AND "
       If (Me.单位 = 迭部林业局) Then
         Str = Str & "([单位] like '*" & 林场 & "*') AND "
         End If
       End If
    If Not IsNull(Me.开始时间) Then
    Str = Str & "([造林时间] >= #" & Format(Me.开始时间, "yyyy-mm-dd") & "#) AND "
    End If
    If Not IsNull(Me.结束时间) Then
    Str = Str & "([造林时间] <= #" & Format(Me.结束时间, "yyyy-mm-dd") & "#) AND "
    End If
    If Len(Str) > 0 Then
    Str = Left(Str, Len(Str) - 5)
    End If
    Debug.Print Str
    Me.小班情况表查询子窗体.Form.Filter = Str
     Me.小班情况表查询子窗体.Form.FilterOn = True
Exit_Command46_Click:
    Exit Sub
Err_Command46_Click:
    MsgBox Err.Description
    Resume Exit_Command46_Click
   
End Sub
我做了个这样的，分林场的能查出来，可是要查林业局的时候，却怎么也查不出来，请高手们帮忙看看吧！！！

dbbygzy

别让我的沉了啊，各位高手们！！！！

dbbygzy

各位大侠帮帮啊！！！！！！！！！！！！！！！！！！！！