不能将null值赋予文本框，因为会导致出错。你的这条代码“Text5.Text = rs("电子邮箱")”改成如下写法：Text5.Text = iif(isnull(rs("电子邮箱")),"",rs("电子邮箱"))对于查询结果集中可能出现null值的字段，碰到这种情况时都可以这样处理。
