Fai prima il controllo se si tratta di stringa semplice o multirighe
codice:
if instr(recset("foto"),VbCrlf)>0 then 
  ArrFoto = Split(recset("foto"),VbCrlf)
''' e questa la elimini  If UBound(ArrFoto) >= 1 Then