未设置对象变量或with变量，怎么解决啊，求高手，下面是代码，

你这查询语句不对呀，查不出数据来，objDs就为null了
WhereStr = "SFID like'%" + Trim(TxtSFIDText) + "%'" 改为
WhereStr = " SFID like '%" + Trim(TxtSFIDText) + "%'"
objCommCommandText = objCommCommandText & "where" & WhereStr 改为
objCommCommandText = objCommCommandText & " where " & WhereStr
就是字符串拼接的时候要注意加空格

---