主题：想给这段代码价格条件。应该怎么改？

Dim f As New Filler
f.SourceTable = DataTables("order") '指定数据来源  想在这个位置加上一个筛选条件 ischeck <>5 and ischeck <>7 代码应该怎么写？

f.SourceCols = "ID,leaderID,productID,productNum,productRemarks,color,weight,ischeck,qrbz,overtime"  ' 指定数据来源列
f.DataTable = DataTables("订单处理") '指定数据接收表
f.DataCols   = "ID,leaderID,productID,productNum,productRemarks,color,weight,ischeck,qrbz,overtime" '指定数据接收列
在这个位置再加上一个 如果productNum不为空。 则锁定该行。

f.Fill() '填充数据

黄色部分是想要添加的格式，但是不知道怎么写才好？还望各位大侠不吝赐教啊！！

非常非常感谢，！！