Dim cmd As New OleDb.OleDbCommand("INSERT INTO `person` (`vorname`, `name`," & _
  "`alter`, `gender`) " & _
                                           "VALUES ('Bimbo3', 'Limbo', '180'," & _
                                           "'m');", DBConnection)
        cmd.ExecuteNonQuery()
 
        cmd.CommandText = "SELECT @@IDENTITY;"
        Console.WriteLine("Zeile hinzugefügt: " & cmd.ExecuteScalar.ToString)

Dim CMD As New OleDb.OleDbCommand()
        CMD.Connection = DBConnection
        CMD.Transaction = DBConnection.BeginTransaction
 
 
        CMD.CommandText = "INSERT INTO `person` (`vorname`, `name`, `alter`," & _
          "`gender`) " & _
                                   "VALUES ('Bimbo3', 'Limbo', '180'," & _
                                   "'zwitter');"
        CMD.ExecuteNonQuery()
 
 
 
        CMD.CommandText = "SELECT @@IDENTITY" '"SELECT MAX(`id`) FROM `person`;"
        Dim InsertID As Object = CMD.ExecuteScalar()
 
        CMD.Transaction.Commit()
        Console.WriteLine("Datensatz hinzugefügt mit ID " & CInt(InsertID))