I've continued to work on this and still can't find a reason that when this
sub completes (and it does so sucessfully) it fires again.  It even fires a
secondtime before RowValidated fires?  This is so weird!!!  

Another pieces of info to work with is that when it fires the second time it
thinks the row it just validated (with good data) is empty so it fails the
top test looking for all three fields to be empty.  What the heck is going on
here?

Another weird this is if I do a dataset.accept changes it adds a blank row
to the grid?  I even to a datagridrefresh and there is a blank row inserted?  
When I look at the datatable in the watch window there is not a blank row?

ARRGGGHHH!!!

I guess I should also state what I am trying to accomplish in this sub.  

1)  If all 3 cells are empty I want to escape out of the row but fire a
msgbox to let the user know that they only exited the row.  (If they pushed a
command buttone that wouldn't fire because they exited the row, so they would
need to press it again)

2)  Check ofr a blank cell in any of the 3 fields.

3) if all 3 are filled check the datatable for  aprimary key issue, if so
set the error text.

As I said the only way I can seem to do test against whether the row is a
user added row is to through a flag in UserAddedRow.  When DataGridView_Leave
fires I call an update function listed below.  I know this is a ton of info
but I would rather you have it all up front instead of asking for more later.


If the update function returns true I acceptchanges and do  datagrid.refresh

   Private Function UpdateSchedule() As Boolean
       Dim intAdd As Integer = 0
       Dim intEdit As Integer = 0
       Dim intDelete As Integer = 0

       If DsStrategy.HasChanges Then

           Dim AddComposition As dsStrategy.usp_ScheduleSelectDataTable = _
               
CType(DsStrategy.usp_ScheduleSelect.GetChanges(DataRowState.Added), _
               dsStrategy.usp_ScheduleSelectDataTable)
           Dim ModComposition As dsStrategy.usp_ScheduleSelectDataTable = _
                 
CType(DsStrategy.usp_ScheduleSelect.GetChanges(DataRowState.Modified), _
                     dsStrategy.usp_ScheduleSelectDataTable)
           Dim DelComposition As dsStrategy.usp_ScheduleSelectDataTable = _
                 
CType(DsStrategy.usp_ScheduleSelect.GetChanges(DataRowState.Deleted), _
                     dsStrategy.usp_ScheduleSelectDataTable)
           Try
               '1. Delete Locations Count
               If Not DelComposition Is Nothing Then
                   intDelete += DelComposition.Count
               End If
               '2. Add Locations Count
               If Not AddComposition Is Nothing Then
                   intAdd += AddComposition.Count
               End If
               '3. Update Locations Count
               If Not ModComposition Is Nothing Then
                   intEdit += ModComposition.Count
               End If

               If intAdd > 0 Or intEdit > 0 Or _
                   intDelete > 0 Then

                   Dim strMsg As String = "You have: " + vbCrLf + vbCrLf + _
                   intAdd.ToString + " pending addition(s), " + vbCrLf + _
                   intEdit.ToString + " pending modification(s) " + vbCrLf
+ _
                   intDelete.ToString + " pending deletion(s) " + vbCrLf +
vbCrLf + _
                       "Would you like to save these changes? " + vbCrLf +
vbCrLf + _
                       "Select Yes to Save or No to continue with out
saving."
                   If MsgBox(strMsg, MsgBoxStyle.YesNo, _
                       "Pending Updates Not Saved") = MsgBoxResult.No Then
                       UpdateSchedule = False
                       Exit Try  ' this skips the add, edit and delete below.
                   End If
               End If

               '2. Parent Delete
               If Not DelComposition Is Nothing Then
                   Usp_ScheduleSelectTableAdapter.Update(DelComposition)
                   UpdateSchedule = True
               End If
               '3. Parent Add
               If Not AddComposition Is Nothing Then
                   Usp_ScheduleSelectTableAdapter.Update(AddComposition)
                   UpdateSchedule = True
               End If
               '4. Parent Update
               If Not ModComposition Is Nothing Then
                   Usp_ScheduleSelectTableAdapter.Update(ModComposition)
                   UpdateSchedule = True
               End If

               MsgBox("Your changes have been saved.")

           Catch ex As Exception
               MsgBox(ex.Message + ex.StackTrace, MsgBoxStyle.Exclamation, _
                   "Database Updates Failed")
               Return False
           Finally
               If Not DelComposition Is Nothing Then
                   DelComposition.Dispose()
               End If
               If Not AddComposition Is Nothing Then
                   AddComposition.Dispose()
               End If
               If Not ModComposition Is Nothing Then
                   ModComposition.Dispose()
               End If
           End Try
       End If
   End Function

I found it but I have no idea why it did what It did.  I was setting a couple
of values in the grid in UserAddedRow.  When I moved these two commands into
the CellEndEdit (so populated the hidden cells after the user makes some sort
of change) the event stopped firing twice.

This still makes not since to me but... oh well.