With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
Filter = Filter &"住院科室 = '" & .Value & "'"
End If
End With