方法一:你可以把备注列改成字符列。
方法二:加上转换函数
Dim Val As IntegerVal = DataTables("T_USER").SQLCompute("Count(*)","Convert(varchar, user_photo) = '" & Tables("T_USER").Current("user_photo") & "'")