It's so much more obvious what's happening
Code:
While Not rs.EOF
Select Case rs.Fields("Status")
Case "Delivery"
dtDelDate = DLookup("DeliveryDate", "tblAssign", "[Status] = '" & strStatus & "'")
strDriver = DLookup("Driver", "tblAssign", "[Status] = '" & strStatus & "'")
strVehicle = DLookup("Vehicle", "tblAssign", "[Status] = '" & strStatus & "'")
strBody = strBody & rs.Fields("DelTo") & " - " & rs.Fields("Town") & " - " & rs.Fields("PostCode") & " - " & rs.Fields("LiftType") & " - " & _
rs.Fields("SONumber") & " - " & rs.Fields("LiftNo") & " - " & rs.Fields("Status") & "Delivered: " & Format(dtDelDate, "ddd-dd-mmm-yyyy") & " Driver: " & strDriver & " Vehicle: " & strVehicle & "|"
Case "Collection"
dtDelDate = DLookup("CollectedDate", "tblCollections", "[Status] = '" & strStatus & "'")
srtBody = strBody & rs.Fields("DelTo") & " - " & rs.Fields("Town") & " - " & rs.Fields("PostCode") & " - " & rs.Fields("LiftType") & " - " & _
rs.Fields("SONumber") & " - " & rs.Fields("LiftNo") & " - " & rs.Fields("Status") & "Collected: " & Format(dtDelDate, "ddd-dd-mmm-yyyy") & "|"
Case Else
srtBody = srtBody & rs.Fields("DelTo") & " - " & rs.Fields("Town") & " - " & rs.Fields("PostCode") & " - " & rs.Fields("LiftType") & " - " & _
rs.Fields("SONumber") & " - " & rs.Fields("LiftNo") & " - " & rs.Fields("Status") & "|"
End Select
rs.MoveNext
Wend