' dein DataSet mit den Daten ist in myDS.Table["Adressen"]
' deine OleDbConnection ist myCon
' Das Select in der naechsten Zeile wird nur zum erzeugen des Update, insert
' und delete benötigt, es füllt nicht das DataSet
Try
  Dim myAdap as new OleDbDataAdapter("Select * from Adressen", myCon)
  Dim myCBilder as new OleDbCommandBuilder( myAdap)
  myAdap.Update( myDS.Table["Adressen"])
Catch ex as Exception
' irgednwas machen
End Try