Function Nullify(strText)
	If CheckNull(strText)=True Then
		Nullify = "NULL"
	Else
		Nullify = "'" & Replace(strText,"'","''") & "'"
	End If
End Function