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??







Mode Lineal
