Non riesco a capire come mai la seguente procedura non scrive i dati nella tabella 'situazione'?


'leggo ultimo ID
cmd = New OleDb.OleDbCommand("select Max(IDSituazione) AS IDSituazione from Situazione", cn)
reader = cmd.ExecuteReader

x = 0
Do While reader.Read()
x = reader("IDSituazione")
Loop

'scrivo valori
Stringa = "INSERT INTO Situazione " & _
"(IDSituazione,IDTavolo,DataOraInizio) " & _
"VALUES (" & x + 1 & "," & _
"" & m_IDTavolo & "," & _
"#" & Format(CDate(Date.Today), "MM/dd/yyyy") & "#)"

dbc = New OleDb.OleDbCommand(Stringa, cn)
dbc.ExecuteNonQuery()