Sub EmployeeFormView_ItemInserting(ByVal sender As Object, ByVal e As FormViewInsertEventArgs)

        MessageLabel.Text = ""

    Dim itemArray(e.Values.Count - 1) As DictionaryEntry
    e.Values.CopyTo(itemArray, 0)

    Dim entry As DictionaryEntry
    For Each entry In itemArray

            If entry.Key.ToString.Equals("DateP") Then
                entry.Value = "09/12/2009"
            End If
            
      If entry.Value.Equals("") Then

        e.Cancel = True

                MessageLabel.Text &= "Please enter a value for the " & entry.Key.ToString() & " field.<br/>"

      End If

    Next

  End Sub