不需要这么防 两个函数可以搞定一切 Function CheckNumeric(Number) If Not IsNumeric(Number) CheckNumeric = 0 Else CheckNumeric = Number End If End Function
Function Checkstr(Str) If Isnull(Str) Then CheckStr = "" Exit Function End If Str = Replace(Str,Chr(0),"") CheckStr = Replace(Str,"'","''") End Function