Prova così:

Private Sub Form_Load()
dbArchivio.DatabaseName = App.Path & "\nome_db.mdb"
End Sub




Dim StringaSQL As String
Dim CampoRicerca As String
Dim CampoOrdinamento As String


If CampoRicerca <> "" Then
StringaSQL = "SELECT * FROM products"
StringaSQL = StringaSQL + " WHERE acc_yn = False And Gambro = True And " + CampoRicerca + "order by basket,description"
Else
StringaSQL = "SELECT * FROM products WHERE acc_yn = False And Gambro = true order by basket,description"
End If