Function Temizle(strVeri)
	If strVeri = "" Then Exit Function

	strVeri = Replace(strVeri, "<", "<")
	strVeri = Replace(strVeri, ">", ">")
	strVeri = Replace(strVeri, "[", "[")
	strVeri = Replace(strVeri, "]", "]")
	strVeri = Replace(strVeri, """", "", 1, -1, 1)
	strVeri = Replace(strVeri, "=", "=", 1, -1, 1)
	strVeri = Replace(strVeri, "'", "''", 1, -1, 1)
	strVeri = Replace(strVeri, "Select", "select", 1, -1, 1)
	strVeri = Replace(strVeri, "join", "join", 1, -1, 1)
	strVeri = Replace(strVeri, "union", "uniOn", 1, -1, 1)
	strVeri = Replace(strVeri, "where", "where", 1, -1, 1)
	strVeri = Replace(strVeri, "insert", "insert", 1, -1, 1)
	strVeri = Replace(strVeri, "Delete", "delete", 1, -1, 1)
	strVeri = Replace(strVeri, "Update", "update", 1, -1, 1)
	strVeri = Replace(strVeri, "Like", "like", 1, -1, 1)
	strVeri = Replace(strVeri, "drop", "drop", 1, -1, 1)
	strVeri = Replace(strVeri, "create", "create", 1, -1, 1)
	strVeri = Replace(strVeri, "modify", "Modify", 1, -1, 1)
	strVeri = Replace(strVeri, "rename", "renaMe", 1, -1, 1)
	strVeri = Replace(strVeri, "alter", "alter", 1, -1, 1)
	strVeri = Replace(strVeri, "cast", "cast", 1, -1, 1)
	
	Temizle = strVeri

End Function