consulta

[banrey]

si tienes toda la razon ya lo habia acomodado lo que quiero es evitar colocar esto

RecSQL.MoveFirst
Text2 = (RecSQL.Fields(1))
Text3 = (RecSQL.Fields(2))
Text4 = (RecSQL.Fields(3))
Text5 = (RecSQL.Fields(5))
Text6 = (RecSQL.Fields(6))

y hacer un for pero lo hago de esta forma y me sale solo el ultimo dato

for a=0 to 6
Text2 = (RecSQL.Fields(a))
next

y disculpame el abuso pero tambien quiero preguntarte como puedo hacer para q salgan todos los registros en un text de una vez ose asi:

lo estoy tratando de hacer asi pero solo me sale en primer nombre y los demas registros del mismo paciente no me salen:

Set RecSQL = New ADODB.Recordset
RecSQL.Open "SELECT * FROM pacientes ", BD, adOpenStatic, adLockOptimistic
If RecSQL.EOF Then
MsgBox "No coincide ningún registro, modifique lo ingresado para la busqueda", vbExclamation
Else
RecSQL.MoveFirst
Text7 = (RecSQL.Fields(1))


jose jose masculino 24
antonio andres masculino 22
andrea martinez femenino 24

entonces tengo que hacer dos cosa primero variar los text y segundo variar el campo como hago eso amigo