Comandos que no funcionan dentro de un loop.

Estoy haciendo una copia de archivos de excel a un formulario en access de la siguiente manera

i = 3
                it = xlWS.Cells(1, 1)
                Do
                    xlWS.Cells(i, 3).Select
                    suptext = xlWS.Cells(i, 1)
                    MsgBox suptext
                    range = "A" & i & ":" & "G" & i
                    MsgBox range
                    xlWS.range(range).Copy
                    Me.sfmOportunidadesProveedores.SetFocus
                    DoCmd.RunCommand acCmdSelectRecord
                    MsgBox "select"
                    SendKeys "^v"
                    SendKeys "{down}", False
                    MsgBox "down"
                    MsgBox range
                    MsgBox i
                    i = i + 1
                    MsgBox i
                Loop Until i = it + 3

pero los comandos   setfocys selectrecord ni sendkeys "^v" hacen apsolutamente nada, esto me funciona si lo coloco fuera del loop, pero dentro del loop no hacen nada, alguna idea?