Reto a Concatenar

[jose58]

jeje voy a provechar que estan hablando de los mismo aver sime ayudan aqui yo tengo estes codigo en el cual consulto pero que sucede que cuando me consulta me duplica los datos en las cajas de texto
ejemplo me duplica asi

||jose peres||jose peres
||18519744||18519744
||venezuela||venezuela
y asi sucesivamente
y el codigo que uso es eeste

Private Sub Command3_Click()
Set con = CreateObject("ADODB.Connection")
con.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "F:\visual\modelo.mdb")
buscar = Text1.Text
SQL = "SELECT * FROM RECIPIENTE WHERE CEDULA LIKE '" & buscar & "'"
Set RS = con.Execute(SQL)
Do While Not RS.EOF
Text2.Text = Text2.Text & vbCrLf & RS("NOMBRE")
Text3.Text = Text3.Text & vbCrLf & RS("FECHADEINGRESO")
Text5.Text = Text5.Text & vbCrLf & RS("SUPERVISOR")
Text6.Text = Text6.Text & vbCrLf & RS("SKILL")
Text7.Text = Text7.Text & vbCrLf & RS("JPHONE")

RS.MoveNext
Loop


End Sub

donde esta el error que hace eso??