主题：[求助][求助]如何让日期加一天

这是原代码：

With Tables("基本数据.聘任")
    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then

        Dim r As Row =   Tables("基本数据.聘任").AddNew()
        If r.Index > 0 Then
            r("等级") = Tables("基本数据.聘任").Rows(r.Index-1 )("等级")
            r("聘任起始日") = Tables("基本数据.聘任").Rows(r.Index-1 )("聘任到期日")
        End If
    End If
End With

如何让这个如何让这个红色代码段值加一天？？？？或者说是让“聘任到期日”多加一日。