Private Sub Grid1_BeforeUpdate (ByVal Row As Long, ByVal Col As Long, _
  sText As String, Cancel As Integer)
 
  If nCol = Grid1.GetCol("aw_date") Then
    If CDate(sText) < DateAdd("d", -3, Now) Then
      MsgBox "..."
      sText = Format$(Now," dd.mm.yyyy")
      Cancel = 2
    End If
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de