Nella query che hai stampato ci sono gli apici senza alcun valore all'interno, quindi il valore passato non era Null, ma forse semplicemente 0. Prova a perfezionare la funzione così

codice:
Function myData(ladata)
  If isNull(ladata) OR ladata = "" Then
      myData = NULL
   Else
      myData = "'" & ladata & "'" 
   End If
End Function