主题：老师们，帮忙看看错哪了？

你原帖的内容已经删除，不知为什么，你原帖的内容导致论坛页面混乱。

你的问题在于这一行代码：

Dim dr As DataRow= DataTables("工作动态").Find("[账号] = '_UserName'")

应该改为：

Dim dr As DataRow= DataTables("工作动态").Find("[账号] = '" & _UserName & "'")

关于合成表达式，请参考：

http://www.foxtable.com/help/topics/1284.htm