Ti manca l'esecuzione della query:

codice:
Dim esito as boolean = Cbool(cmdSQL .ExecuteNonQuery())
Se esito è True hai aggiunto un record.