Okay :) Trying DateSerial now
Something like this then? :
tekst27us = DateSerial(Right(Tekst27, 4), Mid(Tekst27, 4, 2), Left(Tekst27, 2))
tekst29us = DateSerial(Right(Tekst29, 4), Mid(Tekst29, 4, 2), Left(Tekst29, 2))
Do Until rst.EOF = True
If IsNull(rst!Dato) Then
DatoUs = ""
Else...