[Resolvido]Função Dlookup: vários campos e critérios

No tópico "Funções DLookup,DCount,DMax,DMin em front-end desvinculado", acima, há um exemplo de Avelino Sampaio para o uso de Dlookup em que, num único procedimento, o valor de vários campos é retornado.
Fiquei curioso e testei.

Então, tentei usar o mesmo recurso para o caso de haver critérios diferentes, de acordo com o campo.
Tentei criar uma sequência como feito abaixo com os campos, mas não funcionou.

Dim seq As String, k
seq = "[campo1] & '|' & [campo2] & '|' & [campo3] & '|' & [campo4] & '|' & [campo5]"
seq = Dlookup(seq, "NomeDaTabela", Filtro)
k = Split(seq, "|")
Me!campoA = k(0)
Me!campoB = k(1)
Me!CampoC = k(2)
Me!CampoD = k(3)
Me!CampoE = k(4)

E cadê o filtro?

Fiz uma experiência com as informações abaixo:

strCri1 = "Competencia =#" & Format(Me.AnteSalVr, "mm/dd/yyyy") & "#"
strCri2 = "Competencia =#" & Format(Me.UltSalMes, "mm/dd/yyyy") & "#"
strCri3 = "Competencia <> #" & Format(Me.AnteSalMes, "mm/dd/yyyy") & "#AND Competencia <> #" & Format(Me.UltSalMes, "mm/dd/yyyy") & "#"
strCri4 = "Competencia =#" & Format(Me.PenSalMes, "mm/dd/yyyy") & "#"

strCampo = "[Salario] & '|' & [Competencia]"
strCriteria = "strCri1 '|' & strCri2 & '|' & strCri3& '|' & strCri4"
strCampo = DLookup(strCampo, "qryResci_3UltSal", strCriteria)
k = Split(strCampo, "|")
j = Split(strCriteria, "|")

Olá rgodim

O critério a ser aplicado tem que ser selecionado antes da execução do dlookup

Algo assim

strCri1 = "Competencia =#" & Format(Me.AnteSalVr, "mm/dd/yyyy") & "#"
strCri2 = "Competencia =#" & Format(Me.UltSalMes, "mm/dd/yyyy") & "#"
strCri3 = "Competencia <> #" & Format(Me.AnteSalMes, "mm/dd/yyyy") & "#AND Competencia <> #" & Format(Me.UltSalMes, "mm/dd/yyyy") & "#"
strCri4 = "Competencia =#" & Format(Me.PenSalMes, "mm/dd/yyyy") & "#"

strCampo = "[Salario] & '|' & [Competencia]"
strCriteria = "strCri1 '|' & strCri2 & '|' & strCri3& '|' & strCri4"

j = Split(strCriteria, "|")

'------------------------------------------------------
'aqui vc cria sua condição, de qual critério irá usar.

'------------------------------------------------------


strCampo = DLookup(strCampo, "qryResci_3UltSal", j(0))
k = Split(strCampo, "|")


Pergunto: como pensa em fazer para selecionar o critério a ser utilizado?

Avelino,
O critério seria selecionado de acordo com o campo a receber a informação:

Me!Campo1 = ...Criterio1
Me!Campo2 = ...Criterio2

Minha dúvida é saber se é possível, numa única "viagem" à base de dados, escolher um critério diferente, de acordo com a situação. Ou se a cada critério uma a função teria que ir até a tabela.

PS:
Eu tentei essa alternativa:
strCriteria = "strCri1 '|' & strCri2 & '|' & strCri3& '|' & strCri4"
Mas sempre gera erro.