y si lo que buscas es que se ejecute la sentencia a conforme cambia el contador i, solo debes ponerlo asi
Cita: Dim i
For i=1 to 70 step 1
strSQL="INSERT INTO TablaNotas (id, item, nota) VALUES ('" & fid & "', '" & i & "', 'f" & i & "')"
Conn.Execute(strSQL)
next