Invalid use of Null: 'CStr'

[fraude]

perchè la funzione sottostante , che esegue la giusta formattazione delle date, restituisce quest'errore:

Microsoft VBScript runtime error '800a005e'
Invalid use of Null: 'CStr'

<%
Dim ConnDown
Set ConnDown=Server.CreateObject("ADODB.Connection")
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"N_CONF.mdb")
Dim SQLDown,RECDown
SQLDown="select * from n_conf order by nome asc"
Set RECDown=ConnDown.Execute(SQLDown)

Function ConvertiData(data)
    giorno = Mid(data, InStr(1, data, "/") + 1, InStrRev(data, "/") - InStr(1, data, "/") - 1)
    mese = Left(data, InStr(1, data, "/") - 1)
    anno = Right(data, Len(data) - InStrRev(data, "/"))
    ConvertiData = giorno & "/" & mese & "/" & anno
End Function

if RECDown.eof then
response.write "Record non trovato"
else
While Not RECDown.EOF

data = ConvertiData(CStr(RECDown("data")))

%>