Dim SQL as String
Dim cmd = New OleDbCommand
 
' Änderung speichern
SQL = "UPDATE Adressen SET Name='geänderter Name' WHERE ID=1"
cmd.CommandText = SQL
cmd.Connection = con
cmd.ExecuteNonQuery()
 
' Sleep(500) <- Wenn hier ein Sleep wäre, würde es gehen
 
' Daten gleich danach wieder ausgeben
Dim SQL = "SELECT Name FROM Adressen WHERE ID=1"
cmd.CommandText = SQL
cmd.Connection = con
Dim Rec = cmd.ExecuteReader
Debug.Print Rec("Name") ' <- Hier kommt ohne Sleep der alte Wert