Problema al mostrar datos en text en tiempo de ejecucion

Anette
12 de Junio del 2005
Quiero mostrar datos de una tabla en 3 textbox que creo en
tiempo de ejecucion, al momento de buscar el registro la
primera vez no hay ningun problema, pero cuando lo quiero
ver nuevamente solo me muestra el primer registro y no se
activan los textbox. Este es el codigo q estoy usando:

Rs3.Open "SELECT Actualizacion_Datos.Cod_Actualizacion,
Actualizacion_Datos.Nb_Tabla,
Actualizacion_Datos.Num_Registros FROM
Actualizacion_Datos, Solicitud_Actualizacion WHERE
Solicitud_Actualizacion.Cod_Actualizacion =
Actualizacion_Datos.Cod_Actualizacion AND
Solicitud_Actualizacion.ID_Solicitud_Cambio= '" &
ID_Solicitud & "'", Cnn, adOpenDynamic,
adLockBatchOptimistic

Do While Not Rs3.EOF = True

Txt_Cod_Actualizacion(0) = Rs3.Fields
("Cod_Actualizacion")
Txt_Nb_Tabla(0) = Rs3.Fields("Nb_Tabla")
Txt_Num_Registros(0) = Rs3.Fields("Num_Registros")

Load Txt_Cod_Actualizacion
(Txt_Cod_Actualizacion.UBound + 1)
With Txt_Cod_Actualizacion
(Txt_Cod_Actualizacion.UBound)
.Top = Txt_Cod_Actualizacion
(Txt_Cod_Actualizacion.UBound - 1).Top + .Height
.Visible = True
End With

Load Txt_Nb_Tabla(Txt_Nb_Tabla.UBound + 1)
With Txt_Nb_Tabla(Txt_Nb_Tabla.UBound)
.Top = Txt_Nb_Tabla(Txt_Nb_Tabla.UBound -
1).Top + .Height
.Visible = True
End With

Load Txt_Num_Registros(Txt_Num_Registros.UBound +
1)
With Txt_Num_Registros
(Txt_Num_Registros.UBound)
.Top = Txt_Num_Registros
(Txt_Num_Registros.UBound - 1).Top + .Height
.Visible = True
End With
Rs3.MoveNext
Loop