How i insert rows in a table

This insert not insert nothing why?

Set rdoQry.ActiveConnection = cnMySql
Set rdoRS = rdoQry.OpenResultset(rdOpenKeyset, rdConcurRowVer)

Do Until rdoRS.EOF
insertQry.SQL = "INSERT INTO magazzino_media (codice_articolo,quantita,data_giacenza) VALUES ('" & rdoRS!codice_articolo & "', '" & rdoRS!q_art & "','" & Date & "')"
Debug.Print insertQry.SQL
Set insertQry.ActiveConnection = cnMySql
Set rdoRS1 = insertQry.OpenResultset(rdOpenKeyset, rdConcurRowVer)
rdoRS.MoveNext
Loop