AIUTOOO!
Ho provato a seguire le istruzioni del link NSDN, ma non funziona niente.
Mi sapete dire cosa ho sbagliato?
Ho scritto nel pulsante Nuovo Record:

'Riapro la connessione
con.Open()

'Aggiungo il nuovo record alla table
ds.Tables("Table").NewRow()
ds.Tables("Table").Rows.Add()

'Aggiorno il db con le modifiche
Dim cb As New OleDb.OleDbCommandBuilder(da)
da.Update(ds, "Table")

'DA QUI C'E' IL CODICE DEL LINK
Dim newID As Integer = 0
Dim idCMD As OleDb.OleDbCommand = New OleDb.OleDbCommand("SELECT @@IDENTITY", con)
newID = CInt(idCMD.ExecuteScalar())

'Qui dovrei vedere il nuovo ID appena generato... invece appare 0
MsgBox(newID)

Mi sapete anche dire come si inserisce il codice nel riquadro apposito?