SoloCodigo

'Cada vez que hagas click en el combo cambias la propiedad recordsource del control data
en tiempo de diseño no te olvides de enlazar el control data con el flexGrid mediante la propiedad DataSource
Private Sub Cmb_Click()
Data1.RecordSource = "select * from Authors where Au_ID=" & Val(Cmb.Text)
Data1.Refresh
End Sub
Private Sub Form_Load()
Data1.DatabaseName = "c:Biblio.mdb"
End Sub
Espero que te haya ayudado chao MaryCris