Tieni presente che servono un minimo di basi...
Ipotiziamo:
PARAMETERS [pCognome:] Text ( 255 ), [pNome:] Text ( 255 );
SELECT tbl_indirizzi.cognome, tbl_indirizzi.nome, tbl_indirizzi.via, tbl_indirizzi.civico
FROM tbl_indirizzi
WHERE Cognome Like [pCognome:] AND Nome Like [pNome:]
1) Query Parametrica
Dim strSQL as String
Dim qdf As DAO.QueryDef
Dim rs As DAO.Recordset
Set qdf = CurrentDb.QueryDefs("NomeQuery")
qdf.Parameters![pCognome:] = Me!NomeTxtBoxCognome.Value
qdf.Parameters![pNome:] = Me!NomeTxtBoxNome.Value
Set rs = qdf.OpenRecordset
If rs.EOF And rs.BOF Then
Msgbox "Nessun Record..."
Else
Via=rs.Fields("Via").Value
Civico=rs.Field("Civico").Value
End IF
rs.Close
set rs=nothing
set qdf=nothing
2) Usi i Criteri nel DlookUp
Via=DlookUp("Via","tbl_indirizzi","Cognome LIKE '" & Me!NomeTxtBoxCognome.Value & "' AND Nome LIKE '" & Me!NomeTxtBoxNome.Value & "'")
Civico=DlookUp("Civico","tbl_indirizzi","Cognome LIKE '" & Me!NomeTxtBoxCognome.Value & "' AND Nome LIKE '" & Me!NomeTxtBoxNome.Value & "'")
Attenzione che se ti ritrovi Cognomi del tipo [Dall'Oglio] rischi non funzioni... serve fare il REPLACE dell'apostrofo...