求助datagrid控件使用

VB code

Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As Integer)  rs.UpdateEnd Sub

我用上面的方面在datagrid1上修改数据后马上更新RS,现在有一问题，就是当修改的行是时间格式时，想判断一下输入的是否是是1999-9-9这个的格式，不是的话提示一下，现在不知怎么得到用户输入的值，用datagrid1.colnums(colindex).text取的是未改之前的值。

[解决办法]
Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As Integer)
MsgBox DataGrid1.Columns(ColIndex).Text

'''rs.Update
End Sub
[解决办法]
那就是晕datagrid1.text属性
[解决办法]
用if语句判断gettime()的属性格式是否一致，不一致的话就可以用提示框了