主题：郁闷,换了操作系统后,代码执行出错(已解决）

我原用XP系统,现改用Vista系统,以下代码在XP系统上执行的好好的,但在Vista系统上却出现错误

      Dim d As Date = e.DataRow("日期")
If e.DataCol.Name = "日期" Then
    If e.NewValue <> Nothing Then
     e.DataRow("单号1") ="CK" & CStr(d).Remove(0,2).Remove(2,1).Remove(4,1)
     e.DataRow("单号2") =CInt("2" & CStr(d).Remove(0,2).Remove(2,1).Remove(4,3))
  End If
End If

提示索引和计数引用错误,真不明白

已经将系统日期改格式 yyyy-m-d 但还是出现同样错误提示

也是机缘巧合，我想在笔记本电脑上装xp/Vista双系统，分区时不小心将分区表损坏，只有用电脑自带的一键恢复功能将系统重新恢复成Vista系统。
Vista系统恢复后，我先将日期格式改掉后，再加装其余的应用软件，装好狐表后，我再打开项目又试了一次，没想到竟然没有错误提示，检查执行结果，完全正确。
在重装系统之前yyyy-mm-dd、yyyy-m-d两种格式都试过，均不成功。