Dim strSQL As String
Dim Param(2) As String
Dim strWHERE As String

strSQL = "SELECT autore, argomento, data, file FROM Archivio"
Param(0) = IIf(Autore <> "", "Autore = '" & Autore & "'", "")
Param(1) = IIf(Argomento <> "", "Argomento = '" & Argomento & "'", "")
Param(2) = IIf(Data <> "", "Data = " & Data, "")

strWHERE = ""
For K = 0 To UBound(Param)
If Param(K) <> "" Then
strWHERE = strWHERE & Param(K) & IIf(K < UBound(Param), " AND ", " ORDER BY Autore")
End If
Next

strSQL = strSQL & IIf(strWHERE <> "", " WHERE ", "") & strWHERE


intendi una cosa cosi' o si puo semplificare???