You can check if a certain field is a valid date.
Code:
If IsDate(rs.Fields("dor")) Then
  Dor.Value = rs.Fields("dor")
End If