¿Cómo guardo mas de un dato de manera consecutiva en una base de datos de visual basic?

Tengo el siguiente código:
Es para guardar una serie de datos en una base de datos de visual basic.
Private Sub Registro_ComunionBindingNavigatorSaveItem_Click()

If (Los textBox <> "" ) Then

----------------Es decir si el usuario no dejo nada vacío-----------------------
Estilo = vbQuestion + MsgBoxStyle.YesNo
i = MsgBox("¿Desea Guardar los datos?", Estilo, "Guardar")
If i = vbYes Then
'Guarda los datos
Me.Registro_ComunionBindingSource.EndEdit()
Me.Registro_ComunionTableAdapter.Update(Me.Datos_ComunionDataSet.Registro_Comunion)

Else
MsgBox("No se modifico nada", MsgBoxStyle.Information, "Error")
End If
Else

-------------------------Si dejo algo vacio-----------------------------------…
MsgBox("Algunos datos son obligatorios", MsgBoxStyle.Information, "Error")
End If
End Sub

----------------------------------------------------------------------------------------------
Con este código la primera ves que se ejecuta el programa el funciona bien, luego si le doy en agregar un nuevo dato y vuelvo a guardar me sale un error, (Infracción de concurrencia: UpdateCommand afectó a 0 de los 1 registros esperados) no me permita guardar dos datos consecutivamente, sino que tengo que cerrar el programa y volverlo a abrir para poder guardar otro dato. Por fa ayudenme.