Sub Test()
Dim vntResult As Variant
vntResult = DLookup("[Systolic] & '|' & [Diastolic] & '|' & [Pulse]", "tblPressures", "[SampledAt] = #02/08/2009 8:36:52 AM#")
MsgBox "Systolic = " & Split(vntResult, "|")(0) & vbNewLine & _
"Diastolic = " & Split(vntResult, "|")(1) & vbNewLine & _
"Pulse = " & Split(vntResult, "|")(2)
End Sub