Dato che usi diversi pulsanti, il valore cambia a seconda del pulsante, per cui devi rendere la query dinamica cioè pronta ad accettare qualsiasi lettera come parametro.
Il fatto che tu usi 2 lettere anzichè una sola complica la faccenda (ma non troppo).
Supponiamo che i tuoi pulsanti hanno Name e Text così impostati:
- ButtonAB -> A-B
- ButtonCD -> B-C
- ButtonEF -> C-F
ecc...
1) Devi dichiarare due variabili a livello di form
codice:
Dim m_LetteraScelta1 As String = ""
Dim m_LetteraScelta2 As String = ""
2) Negli eventi Click di ogni pulsante devi assegnare il valore alla variabile, ad esempio per il ButtonAB_Click (...) devi inserire
codice:
m_LetteraScelta1 = Mid(ButtonAB.Text , 1, 1)
m_LetteraScelta2 = Rigth(ButtonAB.Text , 3, 1)
3) Dopo puoi formulare la query, il tutto diventa:
codice:
m_LetteraScelta1 = Mid(ButtonAB.Text , 1, 1)
m_LetteraScelta2 = Rigth(ButtonAB.Text , 3, 1)
Dim sFilter As String = "Cognome LIKE '" & m_LetteraScelta1 & "%' OR Cognome LIKE '" & m_LetteraScelta2 & "%'"
ContattiBindingSource.Filter=sFilter