[Resolvido]Preenchimento automático de textbox

Boa tarde feras, blz?

Estou fazendo um relatório onde tenho 9 textbox em branco que devem ser preenchidas com datas que estão em uma tabela relativas as faltas do funcionários.
Por exemplo:

O funcionário '555' tem faltas nos dias 21 e 30 de agosto, então na tabela está assim;

REG DATA_FALTA MOTIVO_FALTA
555 21/08/2013 FALTA HTP
555 30/08/2013 FALTA HTP

Então, tem que preencher somente 2 textbox com essas datas:

Select Case RsFaltas("MOTIVO_FALTA")
Case "FALTA HTP"
For cont2 = 1 To RsFaltas.RecordCount
Me("txtHTPDataFalta" & cont2).Value = RsFaltas("DATA_FALTA")
Next cont2
End Select

Porém, ele só pega a última data e preenche os dois textbox com essa data:

txtHTPDataFalta1 = 30/08/2013
txtHTPDataFalta2 = 30/08/2013

O certo seria ele preencher a 1ª textbox com a 1ª falta e assim por diante:

txtHTPDataFalta1 = 21/08/2013
txtHTPDataFalta2 = 30/08/2013

Alguma luz?
Abrasss!!!

Por que não usa um formulário contínuo vinculado à tabela? Nem precisa de programação. Já para o caso de querer preencher realmente campos desvinculados, aí seria melhor usar Do While para percorrer um objeto Recordset e com o MoveNext passa para o próximo registro. Se for esse o caso, faça uma pesquisa no fórum que temos vários tópicos sobre.

Criquio, consegui retirando uma parte, pois já existia um loop, ficou assim:

Select Case RsFaltas("MOTIVO_FALTA")
Case "FALTA HTP"
Me("txtHTPDataFalta" & RsFaltas.RecordCount).Value = RsFaltas("DATA_FALTA")
End Select

Mas, valeu pelo toque.
Abrasss!!!

Grato pelo retorno. O fórum agradece.