Scusami ma non fai prima a fare una stringa sql
Dim strSQL As String
Dim nome1
nome1=Luca in nome1 puoi assegnarli il valore che decidi tu
strSQL = "SELECT * FROM Nometabella WHERE nomecampo = '" & nome1 & "'"