...= Array(0, 0, 0, 0, 0, 0, 0) 'array to store duration sums for each of the 7 seven day periods
sqlGetContactsForPatientNumber = "SELECT * FROM LHCC_CONTACTS WHERE LHCC_CONTACTS.Patient_No = '" & CurrentPatient & "'"
rsReducedContacts.CursorLocation = adUseClient
rsReducedContacts.Open...