Lo datos los cargo cuando entro al formulario y este es el codigo
Código:
Private Sub AgregarCombo()
Call VisualizarPacientes
With RecBD
.MoveFirst
Do Until .EOF
Combo1.AddItem .Fields(3)
Combo1.ItemData(Combo1.NewIndex) = .AbsolutePosition
.MoveNext
Loop
End With
End Sub
Saludos