Datagrid

[Avellaneda]

Y porqué no algo tan sencillo como esto:

Código:

Private Sub DataGrid1_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
    If ColIndex = 5 Then
        If DataGrid1.Columns(5) > Date Then MsgBox "Fecha errorea"
    Else
'       .. lo que sea
    End If
End Sub