Function CaracEsp(sstr)
                CaractEsp = false
                If instr(1,sstr,"'") then CaracEsp = true
        End Function

        Function FunEsFecha(sfecha)
                FunEsFecha = IsDate(sfecha)
        End Function