There is a couple of unnecessary lines here.

sql = "Insert Into veriler (name) Values ('"&name&"')" 'ADD
sql = "Update veriler Set name='"&name&"' Where id=1" 'UPDATE
sql = "Delete...