codice:
Recordset1.Source = "SELECT * FROM tabella WHERE campo = '"&gruppo&"'"
togli i singoli apici se la variabile è numerica.