在 Q: 的上面加一句 Exit Function ,看其他的代码好像没有错误吧。或者使用：If Not .EOF Then 这里添加记录集有记录的代码Else这里添加记录集没有记录的代码End If
vb是什么版本，方法很简单
