Que tal no pues o te preocupes para que pides disculpas si al contrario gracias por seguir contestando y ayudandome, mira ya hice esto ultimo q me dices y me marca un error q es el :
"3021", El valor del BOF o EOF es true, o el actual registro se elimino;la operacion solicitada requiere un registro actual.
Este es mi codigo
Cita: Private Sub Combo1_Click()
RecBD.Find ("apellidos='" & Combo1.List(Combo1.ListIndex) & "'")
text1(0) = RecBD!Id------------------------------------------------>Aqui es donde me marca el error
text1(1) = RecBD!fecha
text1(2) = RecBD!nombre
text1(3) = RecBD!apellidos
text1(4) = RecBD!ocupacion
text1(5) = RecBD!recomendado
text1(6) = RecBD!nacimiento
text1(7) = RecBD!edad
text1(8) = RecBD!sexo
text1(9) = RecBD!proxima
text1(10) = RecBD!tel1
text1(11) = RecBD!tel2
text1(12) = RecBD!tel3
text1(13) = RecBD!tel4
text1(14) = RecBD!calle
text1(15) = RecBD!colonia
text1(16) = RecBD!municipio
text1(17) = RecBD!estado
text1(18) = RecBD!pais
text1(19) = RecBD!antecedentes
End Sub
Ahora no se si sea por q ese valor es autonumerico, me lo asignda la base de de datos, no se si tenga q trabajar ese textbox de forma diferente.
Saludos y Gracias