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