Cita:
Iniciado por tsunamijavip 
Añade text1.text = ""
para limpiarlos y que no se te añadan (no se si es eso lo que preguntas realmente)
Quedaria un cosa asi:
Código:
Do While Not RS.EOF
Text1.Text = ""
Text1.Text = Text1.Text & RS("P00")
Text2.Text = ""
Text2.Text = Text2.Text & RS("CEDULA")
Text3.Text = ""
Text3.Text = Text3.Text & RS("CARGO")
Text4.Text = ""
Text4.Text = Text4.Text & RS("UNIDAD")
RS.MoveNext
Loop
Gracias hermano si funciono que cabeza la mia.
lo pense pero lo hice al reves