Bueno considero que si haces un ciclo te funciona mejor tu tienes esto
Código:
SQL = "SELECT * FROM Medicos WHERE NombreEspecialidad = '" & Me.DataEspecialidad.BoundText & "' ORDER BY NombreEspecialidad;"
rsConsulta7.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly ', adCmdText
If rsConsulta7.EOF = False And rsConsulta7.BOF = False Then
DataMedico.Text = rsConsulta7.Fields("NombreMedico")
rsConsulta7.MoveNext
End If
deberia de se asi:
Código:
SQL = "SELECT * FROM Medicos WHERE NombreEspecialidad = '" & Me.DataEspecialidad.BoundText & "' ORDER BY NombreEspecialidad;"
rsConsulta7.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly ', adCmdText
While rsConsulta7.EOF = False
DataMedico.AddItem= rsConsulta7.Fields("NombreMedico")
rsConsulta7.MoveNextf
Wend
ya viendo el codigo tu problema es que tienes el Combo con .Text cuando deberia ser .AddItem de lo contrario solo te coloca el primer registro que encuentra solo cambia esa propiedad y listo.
Saludos