主题：判断表没有记录

下面的代码当表中一条记录都没有就出错了，如何判断表中有没有记录呢？

Dim r As Row = Tables("奖惩记录").Current
If r.Isnull("姓名") OrElse r.Isnull("获奖年度") OrElse r.Isnull("等级") OrElse r.Isnull("名称")OrElse r.Isnull("证件") OrElse r.Isnull("颁奖日期") Then
    msgbox("本条记录不完整,请您填写完整申报单再增加新记录!")
Else
    Tables("奖惩记录").Current.Locked = True
    Tables("奖惩记录").AddNew()
End If