duvida em visual basic 2003

Tenho varios dataset com info so que quando faço a gravaçao do programa ele so me grava os campos do dataset1 e nao me grava o dos restantes 5 datasets.

Nao percebo o que esta a falhar porque esta em tudo semelhante com um programa anterior que tinha feito e que funcionava perfeitamente

Alguem pode ajudar?

 

If MsgBox("Quer Guardar Registo?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Guardar...") = MsgBoxResult.No Then
Me.BindingContext(Me.DsSocios1, "Socios").CancelCurrentEdit()


Else
With Me.BindingContext(Me.DsSocios1, "Socios")

Try
.EndCurrentEdit()

Me.OleDbDataAdapter1.Update(Me.DsSocios1.GetChanges, "Socios")
Me.DsSocios1.AcceptChanges()


Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Erro")
End Try

Actualiza_Contador()
End With

End If



Este e o codigo que tenho para gravar mas como vem so grava o dataset1, os restantes nao gravam