主题：请修改代码错误！定义变量不显示

各位老师：原因这个代码运行没有问题

Dim cntjbgbla3 As Integer  = DataTables("临时统计表").Compute("Count([日期])", "不良描述  Like '*干涉*' And 日期>= # " & jny3  & "#   And 日期<= # " & jny3z  & "#")

现在我想达到的效果是：包涵”干涉“的内容在窗口中的Textbox1值代替，定义了变量，查询时没有结果（其实是有结果的）

Dim a As String = e.form.controls("TextBox1").value '定义车型
Dim cntjbgbla3 As Integer  = DataTables("临时统计表").Compute("Count([日期])", "不良描述  Like '"& a  &"'  And 日期>= # " & jny3  & "#   And 日期<= # " & jny3z  & "#")

请老师指教！

谢谢老师！