Hice un proyecto desde 0 con un solo formulario y 3 botones
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.OleDbDataAdapter1.Fill(Me.DsMdb1) ' Este guarda mi tabla hecha en access
Me.SqlDataAdapter1.Fill(Me.DsSQL1, "CtrlEmb") 'Este guarda mi tabla heca en
sqlServer
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Me.DsSQL1.Merge(Me.DsMdb1)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Me.DsSQL1.AcceptChanges()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Me.SqlDataAdapter1.Update(Me.DsSQL1, "CtrlEmb")
End Sub
Leer las respuestas