Salvar no banco de dados

Olá pessoal, se alguem puder me ajudar, agradeço.
Estou trabalhando com vb6 e banco Access, e estou mandando consulta sql pro banco de dados, entao qdo mando um campo ele vai certinho, porem qdo vou mandar o outro campo ele comeca daonde o outro acabou...e gostaria q ambos comecassem da primeira linha, até onde ele for...naum sei se vcs entenderam, mas vou madar meu codigo, se alguem souber, agradeço...

For i = 1 To 12
consulta = ´SELECT AVG(PR) as Media FROM Resultados WHERE Month(Resultados.Data)=´ & i & ´ ´
Set rs = Dbcon.OpenRecordset(consulta)

RegEstatistica.AddNew
RegEstatistica(´Media´) = rs(´Media´)
RegEstatistica.Update
next
//faco isso numa funcao pra jogar no banco...

RegEstatistica.MoveFirst
For i = 1 To Linhas
consulta = ´SELECT (1-(PR/PP))*100 AS Quebra FROM Resultados WHERE Resultados.Referencia=´ & i & ´ ´
Set rs = Dbcon.OpenRecordset(consulta)
RegEstatistica.AddNew
RegEstatistica(´Quebra´) = rs(´Quebra´)
RegEstatistica.Update
//depois em outra funcao faco isso, mas os valores sao colocados depois das 12 linhas q foram inseridos os de cima...


Obrigada.