主题：删除当前行时想确认一下怎么办

我在窗体中添加了一个按钮，用于删除当前行，代码如下：

 

Dim r As Row = Tables("教职工信息表").Current
r.DataRow.Load() '重新加载此行的数据
If MessageBox.Show("只有"增加时间"是201303的人员才可用此按钮删除,是否删除本记录?","请确认",MessageBoxButtons.OKCancel,MessageBoxIcon.question) = DialogResult.OK  Then
    If r("增加时间") =   201303  Then
        MessageBox.Show("开始删除")
        Tables("教职工信息表").Current.Delete  '删除教职工信息表的当前行,
    Else MessageBox.Show("删除不成功")
    End If
End If

 

注明：其中“增加时间”列是字符型的

教职工信息表结构为

序号	姓名	增加原因	增加时间
1	张三	新录用	201301
2	李四	调入	201302
3	赵武	调入	201303

当前行为赵武， 把代码 If r("增加时间") =   201303  Then   去除后，删除可正常进行，但有了这段判断代码后，无法删除，恳请高手指教！