Per prima cosa ti chiedo di utilizzare l'apposito tag CODE per scrivere il codice, che sennò tocca andarselo a cercare tra le righe dei tuoi post.

Per il tuo problema... se non ricordo male, credo che basti concatenare i criteri di selezione;
un'altra cosa: Me![Nome] è una stringa quindi non devi passargliela con # ma con '"; tra l'altro devi tener conto di eventuali apostrofi nel nome, quindi ti consiglio di fare una Replace su questa stringa.
codice:
Private Sub Comando30_Click() 
On Error GoTo Err_Comando30_Click 

 Dim stDocName As String 
 Dim stLinkCriteria As String 


 stDocName = "STORNI_IMPORT2" 

 stLinkCriteria = "[DataFax] = #" & Me![DataFax] & "#" 
 stLinkCriteria = stLinkCriteria & " AND " _
               & "[Nome]= '" & Replace(Me![Nome],"'","''") & "'" 

 DoCmd.OpenForm stDocName, , , stLinkCriteria 

 Exit_Comando30_Click: 
Exit Sub 

Err_Comando30_Click: 
 MsgBox Err.Description 
 Resume Exit_Comando30_Click 

End Sub