El strSelect te trae datos?
Código vb:
Ver originalSQL = "SELECT * FROM Medicos WHERE NombreEspecialidad = '" & Me.DataEspecialidad.BoundText & "' ORDER BY NombreEspecialidad;"
rsConsulta7.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly ', adCmdText
Coloca una interrupción en "Private Sub DataEspecialidad_Click(Area As Integer)" y corre el proyecto con F8.