Dim myDA As New OleDb.OleDbDataAdapter("SELECT * FROM Players", _
  "deinConnectionString")
        Dim myCB As New OleDb.OleDbCommandBuilder(myDA)
        Dim myDs As New DataSet
        myDA.Fill(myDs)
        With myDA.SelectCommand.Connection.CreateCommand
            'die tabelle clonen mit neuen namen
            .CommandText = "SELECT * INTO MyPlayer FROM Players"
            .Connection.Open()
            .ExecuteNonQuery()
            'die alte tabelle löschen
            .CommandText = "DROP TABLE Players"
            .ExecuteNonQuery()
            .CommandText = "ALTER TABLE player ADD COLUMN MyID COUNTER" & _
              "CONSTRAINT PrimaryKey PRIMARY KEY"
            .ExecuteNonQuery()
            .Connection.Close()
        End With
        'die alte Table löschen (wenn du mehrere Tables im DataSet hast dann 
        ' myDs.Tables(dieUmbenannteTabelle).Clear())
        myDs.Tables.Clear()
        myDA.SelectCommand.CommandText = "SELECT * FROM MyPlayer"
        myDA.Fill(myDs)
        With myDs.Tables(0).DefaultView
            .AddNew()
            .Item(myDs.Tables(0).DefaultView.Count - 1).Item("oPlatz") = 1
            .Item(myDs.Tables(0).DefaultView.Count - 1).Item("ID") = 111
            .Item(myDs.Tables(0).DefaultView.Count - 1).Item("oName") = "Tester" & _
              "testet"
            .Item(myDs.Tables(0).DefaultView.Count - 1).EndEdit()
        End With
        myDA.Update(myDs)