'in PersonelQ
Initial: Left([Lastname],1)

'ComboBox
SELECT DISTINCT Initial FROM PersonelQ ORDER BY Initial;

'AfterUpdate
Private Sub INICombo_AfterUpdate()
   Me.FilterOn = False
   Me.Filter = "[Initial] LIKE '" & Me.INICombo & "' "
   Me.FilterOn = True

End Sub