主题：提示未找到列

老师好，下面的代码有什么问题？怎么一直提示未找到列？

Dim fiter As DataRow = DataTables("库存查询").Find("[移动单元] = "& st &"")
If fiter IsNot Nothing Then
    Tables("转移过账_筛选Table1").Filter = ("[移动单元] = "& st &"")
Else Tables("转移过账_筛选Table1").Filter = ""
    MessageBox.show("选定区域不存在,请重新输入!")
End If