Dim cogn As String
Dim nome As String

Me.txtCognome.SetFocus
cogn = Me.txtCognome
Me.txtNome.SetFocus
nome = Me.txtNome

DoCmd.OpenForm "Tlocale", , , "([forms]![MascheraPrincipale]![Apparato Sottomaschera]![Cognome] = '" & cogn & "' " & "AND [forms]![MascheraPrincipale]![Apparato Sottomaschera]![Nome] = '" & nome & "')"