Ja testei de varias formas mas não esta indo devido a segunda condição em um campo sim/não
Dim PegaId, VerificaReg As Double
PegaId = Me.txtCodigoBarra
VerificaReg = DLookup("[id]", "cns_CD_Exped_XML", "[id] = '" & PegaId & "' And EtiquetaExped = '" & True)
Dim PegaId, VerificaReg As Double
PegaId = Me.txtCodigoBarra
VerificaReg = DLookup("[id]", "cns_CD_Exped_XML", "[id] = '" & PegaId & "' And EtiquetaExped = '" & True)