Cita:
Iniciado por Girao 
Aqui mi codigo
Código:
If Tabla.Fields("id") = Botón(Index).Caption Then
Botón(Index).Caption = Tabla.Fields("nombre")
End If
End Sub
Estas cargando bien la informacion a tu recorset...
El problema es que le asignar solamente al primer boton el nombre.
Tenes que usar un While y recorrer el recorset hasta el final y ahi vas asignando boton por boton