prova a fare
codice:
oWorkSheet.range(i, 3).select
oWorkSheet.activecell.formular1c1 = rs.Fields("Nome")
non l'ho provato ma magari funziona