Ciao
Se scrivi così cerca una variabile che si chiama A
ContattiBindingSource.Filter="Cognome LIKE '" & A & "*'"

Per fare funzionare correttamente questa funzione con le lettere fisse come fai tu devi scrivere cosi:

ContattiBindingSource.Filter = "Cognome LIKE 'A*'"