[VB6] Query WHERE

[LMondi]

Mi dareste una mano, non riesco a definire la seguente query:

RSTs1.Source = "SELECT NomeFile, TotaleIco FROM TblAttivaIcone WHERE NomeFile='" & strNomeFileSalva " And TotaleIco ='" & sngAttTotale & "'"
RSTs1.Open , Cns1, adOpenDynamic, adLockOptimistic

Ove le variabili: strNomeFileSalva è una stringa e sngAttTotale è una variabile numerica.
Sarà che sono stanco, ma non riesco a farla funzionare.
Grazie per l'aiuto.