deleting rows

 da.DeleteCommand = New SqlCeCommand("Delete from Incident where incidentyear = " & Val(YearEntry.Text) & ";", con)

                dsIncident.Tables(0).Rows(0).Delete()

                da.Update(dsIncident.Tables(0))

this code works fine but I need to leave 1 row in the table so I do not get errors.

can this be done? if so, how?